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I .  INTRODUCTION 

This  code  manual  describes  the  Nianerical  Electromagnetic  Code  - 
Reflector  Antenna  Code  by  which  the  near  field  and  far  field  of  a  typical 
Navy  reflector  antenna  can  “le  calculated.  One  important  feature  of  the 
code  is  the  capability  for  a  general  reflector  rim  shape.  Another  import¬ 
ant  feature  is  the  capability  to  input  a  practically  arbitrary  volumetric 
feed  pattern. 

Since  many  Navy  reflector  antennas  have  parabolic  surfaces,  only 
the  class  of  parabolic  surfaces  was  implemented  in  the  computer  code. 

The  geometry  of  the  reflector  rim  is  treated  as  piece-wise  linear. 

The  code  for  the  reflector  geometry  is  flexible  enough  to  include  off¬ 
set  fed  reflectors  and  general  reflector  rim  shapes  such  as  elliptical 
and  rectangular  with  chopped  corners. 

The  theoretical  approach  for  computing  the  fields  of  the  general 
reflector  is  based  on  a  combination  of  the  Geometrical  Theory  of  Dif¬ 
fraction  (GTD)  and  Aperture  Integration  (AI)  techniques.  Typically, 

AI  is  used  to  compute  the  main  beam  and  near  sidelobes;  GTD  is  used  to 
compute  the  wide-angle  sidelobes  and  the  backlobes.  To  implement  the 
computer  algorithms  based  on  these  theories,  efficient  ways  were  devel¬ 
oped  to  handle  calculations  involving  the  feed  pattern,  the  aperture 
field  and  the  far  field  pattern  computation. 

Sampled  data  from  each  measured  feed  pattern  cut  is  input  and  stored 
in  the  code.  Linear  interpolation  is  then  used  to  obtain  a  piece-wise 
linear  representation  of  the  input  pattern  cut.  The  feed  patterns  in 
planes  other  than  those  corresponding  to  the  input  pattern  cuts  also 
are  calculated  by  linear  interpolation.  This  method  provides  a  com¬ 
putationally  efficient  way  of  calculating  the  aperture  field  without 
requiring  large  amounts  of  computer  storage  for  the  measured  feed  pat¬ 
tern.  Only  relatively  few  data  points  need  to  be  stored  for  essentially 
complete  feed  pattern  information.  Furthermore,  the  piece-wise  linear 
method  has  the  advantages  of  flexibility  and  simplicity  for  general 
feed  patterns.  No  cut-and-try  procedures  are  needed;  the  sample  feed 
values  can  be  obtained  directly  from  measured  feed  pattern  data. 

The  aperture  fields  are  calculated  and  stored  on  the  principal 
grid  for  use  in  the  aperture  integration.  The  principal  grid  values  are 
used  for  all  output  pattern  cuts.  The  aperture  fields  are  calculated  at 
points  off  the  principal  grid  by  using  linear  interpolation  from  the 
principal  grid.  This  is  more  efficient  than  calculating  the  aperture 
fields  from  the  feed  pattern  for  each  rotated  grid  that  is  used  for 
off-principal  plane  cuts. 

The  aperture  integration  uses  an  approach  of  overlapping  subaper¬ 
tures  which  allows  a  piece-wise  linear  representation  for  the  aperture 
distribution.  Thus  variations  in  the  aperture  fields  can  be  represented 
with  relatively  few  subapertures.  Furthermore,  the  subapertures  can  be 
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electrically  large;  thus  minimizing  the  computer  storage  and  also  the 
amount  of  numerical  integration  required.  For  far  field  computations, 
a  rotating  grid  method  is  employed  in  that  the  y- integrations  are 
carried  out  for  each  column  of  the  aperture  and  each  one-dimensional 
integration  result  is  stored.  The  stored  values  for  the  y-integration 
are  then  used  for  each  pattern  angle  in  the  plane  perpendicular  to  the 
y-axis;  thus  the  efficiency  approaches  that  of  a  one-dimensional  inte¬ 
gration.  Even  though  the  integration  grid  must  be  rotated  to  obtain  the 
pattern  in  other  planes,  the  required  grid  rotation  is  computationally 
much  faster  than  the  numerous  two-dimensional  integrations  that  would 
otherwise  be  required. 

The  GTD  and  AI  approaches  used  for  the  reflector  code  have  a  basic 
limitation  on  the  minimum  size  reflector  that  can  be  modeled.  This  limi 
tation  is  probably  on  the  order  of  lx  to  3A  for  the  reflector  diameter. 
However,  virtually  all  practical  reflector  antennas  exceed  3x  diameter. 
There  is  no  limitation  on  the  maximum  size  of  the  reflector  for  the  basi 
analysis. 

This  code  manual  documents  the  detailed  explanation  of  this  code 
except  the  input  data  section  which  is  described  in  the  Ikpr's  Manual 
[1].  The  theoretical  background  on  which  the  computer  algorithms  are 
based  is  discussed  in  Section  II.  Section  III  consists  of  the  actual 
code  descriptions  of  the  main  program  and  the  various  subroutines.  For 
each  subsection  of  the  main  program  and  subroutine,  the  purpose  and 
method  are  included,  accompanied  by  a  flow  diagram,  a  key  variable  list 
and  a  listing  of  the  code. 


II.  BACKGROUND 

A.  Aperture  Integration 

For  aperture  fields  with  arbitrary  polarization  having  both  x  and 
y  components,  the  near  field  can  be  expressed  as 
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where  Fx  and  F  are  the  modified  vector  element  patterns  associated 
with  two  Huygen's  sources  (crossed  electric  and  magnetic  dipoles)[2] 
each  having  its  electric  field  vector  parallel  to  the  X-  and  Y-axis, 
respectively.  These  vector  element  patterns  are  expressed  by 


Fx  =  [e  cos<j>  -  <j>  sin<f>]  co 


Fy  =  [e  sin$  +  $  cos«>3  cos(^) 


The  aperture  integration  is  performed  over  the  portion  of  the  aper¬ 
ture  plane  inside  the  reflector  rim.  For  near  field  computations,  a 
rectangular  grid  size  (Dx  and  Dy)  is  chosen  so  that  the  aperture  can  be 
divided  into  a  principal  rectangular  grid  as  shown  in  Fig.  1.  Using  the 
approach  of  overlapping  subapertures,  the  aperture  is  treated  as  a 
collection  of  overlapping  subapertures.  Each  subaperture  is  rectangular 
in  shape  and  consists  of  four  adjacent  grid  rectangles.  The  aperture 
distribution  for  each  subaperture  is  triangular.  The  use  of  overlapping, 
rectangular  subapertures  with  triangular  distributions  permits  a  piece- 
wise  linear  approximation  to  the  overall  aperture  distribution  of  the 
reflector.  Furthermore,  the  grid  spacings  Dx  and  Dy  can  be  electrically 
large,  i.e.,  several  wavelengths  in  size.  This  further  minimizes  the 
computation  time.  Thus  the  aperture  integration  results  in  a  sum  of  the 
pattern  functions  of  the  rectangular  subapertures  weighted  by  the  aper¬ 
ture  field  Ea  and  their  respective  areas.  For  far  field  computations, 
the  rectangular  grid  is  rotated  to  form  a  non-orthogonal  rotating  grid 
in  which  the  y-axis  is  rotated  an  angle  <t>  from  the  principal  Y-axis. 


Figure  1.  Geometry  for  principal  rectangular  grid. 


3 


Thus  the  y-i ntegrations  are  independent  of  e  and  can  be  stored.  Conse¬ 
quently,  the  far  field  pattern  in  the  plane  perpendicular  to  the  y-axis 
is  reduced  to  a  one-dimensional  integration;  this  provides  greatly 
improved  efficiency  over  the  many  two-dimensional  integrations  that 
would  otherwise  be  required.  Detailed  implementation  of  these  integra¬ 
tion  techniques  are  given  in  the  related  sections. 


B.  GTD 

This  section  summarizes  the  GTD  analysis.  For  further  detail, 
see  the  section  describing  the  subroutine  GTD. 

The  GTD  analysis  of  the  reflector  is  similar  to  that  of  diffraction 
by  a  flat  plate[3,4],  except  that  the  curvature  of  the  reflector  surface 
must  be  taken  into  account.  It  was  found  that  the  reflector  rim  must  be 
subdivided  into  nearly  straight  segments.  A  suitable  criterion  is  that 
each  segment  of  the  reflector  rim  be  small  enough  that  the  focus  lies 
in  the  far  field  of  the  rim  segment. 

The  GTD  method  used  in  the  reflector  code  increments  around  the 
rim  and  determines  whether  a  diffraction  occurs  for  each  linear  rim  seg¬ 
ment.  This  is  done  by  comparing  the  diffraction  angle  with  the  bounds 
on  the  permissible  range  of  angles.  If  the  diffraction  for  that  segment 
is  not  significant,  the  code  checks  the  next  rim  segment.  If  the  dif¬ 

fraction  is  significant,  the  diffraction  point  and  the  vector  for  the 
incident  ray  from  the  feed  are  calculated.  This  procedure  is  the  same 
as  that  used  for  the  flat  plate  scattering  code  except  that  the  geometry 
information  associated  with  the  parabolic  reflector  surface  is  changed. 

Once  the  diffraction  point  Xq  is  located,  the  diffraction  angles 
and  ,(>  are  defined  in  the  edge  fixed  coordinate  system  at  the  dif¬ 
fraction  point.  The  three  orthogonal  unit  vectors  associated  with  this 
system  on  each  segment  of  the  reflector  rim  are  the  edge  unit  vector  V, 
the  unit  normal  vector  VN  which  is  given  by 


VN  =  -p  sin  ^  +  z  cos  |- 


where 


p 


=  X  cos4>  +  Y  s  i  n^ 


and  the  unit  binomial  vector  VP=VNxV  as  shown  in  Fig.  2. 

The  incident  angles  and  and  the  diffraction  angles  b0  and 
and  the  associated  unit  vectors  Bq,  s  and  J  which  define  the 
ray  fixed  coordinate  system  are  determined  using  the  incident  ray  unit 
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A 
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Figure  2.  Unit  vectors  associated  with  the 
reflector  rim. 


vector  VI,  the  diffracted  ray  unit  vector  d  and  the  unit  vectors  in 
the  edge  fixed  system  as  given  by 


=  sin"1 | dxV | 


=  -VP  sin<j>'  +  VN  cos$' 
$  =  -VP  sin<j>  +  VN  cos* 
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=  <t>*  x  VI 


e0  =  *  x  d 


as  illustrated  in  Fig.  3. 
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Figure  3a, b.  Geometry  for  three  dimensional  diffraction 
of  a  half  plane. 


Thus  the  edge  diffracted  field  from  each  segment,  expressed  in 
parallel  and  perpendicular  components  referred  to  the  ray  fixed  system, 
is  given  by[5,6] 

Ej(S)  =  -El(X0)  Ds(L)  A(S)  e'jks 


Ej(S)  =  -El(XD)  Dh(L)  A(S)  e'jkS 

where 

F[kLaLe-j]i  F[kLje^3 
cos  |-  cos  |-  _ 


6+  =  4  +  ♦' 
a  =  2  cos^|) 


r°°  *  2 

F (X )  =  2 j I *^T| e^X  f  e~jT  dt  is  the  transition  function, 

Jl^l 

f  ry- 

A(S)  =  VS(S+S') 

for  near  field, 

SS '  2 

}  =  sin  6o 


and 


[l  =  S'  sin2e0 


for  far  field 
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The  slope  diffracted  fields  are  calculated  in  a  similar  way  except  that 
the  slope  diffraction  coefficients  aD§/a4>'  and  aD^/aV  and  the  slope 
aE’/an  of  the  incident  field  at  the  edge  are  used.  Thus  the  respective 
parallel  and  perpendicular  components  of  the  slope  diffracted  field  are 
given  by 


End(S)  = 


Eid(S)  = 


1  3Ds(L) 


jksine0  3n  3$' 

3El(X0)  3Dh(L) 


A(S)e 


-jks 


1 

jksinBr 


an 


34> 1 


A(S)e 


-jks 


where 


3D 


TT 


^h  =  ^ 

3<J> 1 


i  sir/f-)  [l-F[kLa(6+)]]l 


Since  each  rim  segment  is  small,  the  diffractions  from  its  two 
endpoints  are  significant.  These  diffractions  are  calculated  by  using 
the  corner  diffraction  analysis  developed  by  Burnside,  et  al[7].  The 
corner  diffraction  compensates  for  the  discontinuity  which  occurs  when 
the  diffraction  point  moves  off  of  the  rim  segment.  The  corner  dif¬ 
fraction  field  is  given  by[7] 


where 


Ec 

,  it 

I2o 

.  7T 

-J  4 

sinec  e 

-jks  -jks 

6  e 

eS 

MYo 

2n(cosBoc+cosec 

T  F  lkLCa^eoc+6C^  /£“  Ss 

», 

i 

E?i(Xq  ) 

,  /r  <Jks' 

M 
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Figure  4.  Geometry  for  corner  diffraction  problem. 
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For  near  field  calculations,  the  geometrical  optics  reflected 
field  must  also  be  included  in  the  total  field  if  the  observation  point 
is  inside  the  projected  aperture.  Since  the  reflected  fields  from  a 
parabolic  reflector  are  those  of  a  plane  wave  with  its  wavefront  parallel 
to  the  aperture  plane,  the  magnitude  of  the  reflected  fields  can  be  cal¬ 
culated  from  the  aperture  field  and  adding  the  appropriate  phase  term. 


C.  OUTPUT  From  the  Code 

If  the  field  point  is  in  the  spillover  region,  the  feed  spillover 
field  is  calculated  and  added  to  the  total  field  from  the  reflector  as 
calculated  by  either  AI  or  GTD. 


For  far  field  calculations  or  for  near  field  calculations  with  con 
stant  range,  the  total  field  is  converted  to  principal  and  cross  polar¬ 
ized  components  as  referred  to  the  polarization  of  the  field  components 
from  a  Huygen's  source.  For  near  field  calculations  with  constant  z, 
the  field  is  still  expressed  in  rectangular  components. 

Far  field  calculations  can  be  made  with  or  without  the  e“JkR/R 
range  factor  and  this  is  controlled  by  the  input  logical  variable  LRANG. 
If  the  range  factor  is  suppressed  (LRANG=false)  the  dB  output  of  the 
code  is  expressed  as  antenna  gain  relative  to  isotropic. 


For  far  field  calculations  including  the  range  factor  (LRANG=true) 
or  for  near  field  calculations  the  output  is  expressed  as  the  electric 
field  relative  to  the  field  level  of  the  feed  along  its  axis  and  at  a 
range  equal  to  the  focal  distance  of  the  reflector.  In  cases  for  which 
the  feed  axis  is  aligned  with  the  reflector  axis  (zero  feed  tilt  angle) 
this  field  reference  is  the  aperture  field  at  the  center  of  the  aperture 
Thus,  the  power  density  (based  on  free,  space  impedance)  for  these  cases 
can  be  calculated  from 


pt  l  e  r 

F2P 

rad 


where 

j E |  =  magnitude  output  of  the  code 

Pj  =  transmitter  power  (radiated) 

F  =  focal  length  of  the  reflector 

p  .  =  relative  power  radiated  by  the  feed 
ra  (see  Section  1) 

The  information  for  F  and  Pra(j  are  included  in  the  variable 
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REFDB  =  10  log  1 - 

F  Prad 

This  variable  is  used  to  calculate  far 
from  the  code.  Thus  the  power  density 
(assuming  Pj  is  watts  and  a  is  meters) 


SdB  =  20  1 og | E |  +  REFDB  *  10  log 

Power  density  calculations  can  be  used 
or  for  calculating  coupling  in  EMI  predictions. 


III.  CODE  DESCRIPTION 

This  computer  code  calculates  both  far  field  and  near  field  pat¬ 
terns  of  reflector  antennas  with  general  rim  shapes  and  arbitrary  feed 
patterns.  It  uses  a  combination  of  Aperture  Integration  (AI)  and  the 
Geometrical  Theory  of  Diffraction  (GTD)  techniques. 

This  code  is  divided  into  two  parts.  The  first  part  consists  of 
various  command  words  which  read  all  the  input  data.  The  details  of 
this  command  word  system  is  explained  in  the  User's  Manual [1]  and  thus 
is  not  repeated  here. 

The  rest  of  this  code  belongs  to  the  content  of  the  XQ  command 
which  performs  the  unit  conversion  of  input  data  and  all  the  computa¬ 
tions  to  get  the  far  field  or  near  field  results.  Various  subroutines 
are  called  during  the  execution  of  this  program  and  are  described  in 
Part  B  of  this  chapter.  In  the  main  program,  some  of  the  sections  which 
need  more  detailed  explanation  are  separated  as  subsections  which  are 
actually  expansions  of  their  corresponding  blocks  in  the  flow  diagram 
of  the  main  program. 

The  linkage  of  the  subroutines  to  the  main  program  is  shown  in 
the  following  flow  charts.  All  GTD  calculations  are  controlled  by  the 
subroutine  GTD.  The  linkage  of  the  subroutines  to  the  subroutine  GTD 
is  shown  in  the  second  flow  chart  that  follows: 


field  gain  and  is  given  as  output 
in  dB  relative  to  1  Watt/meter* 
i$  given  by 


for  radiation  hazard  predictions 


GTD 


Subroutine  Linkage  Chart  II 


MAIN  PROGRAM 
FLOW  DIAGRAM 


Loop  through  various 
frequencies 
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CODE  LISTING 


1  C 

2  C  *  i-AR  AND  NEAR  FIELD  PATTERN  FOR  PARABOLIC  REFLECTOR  ANTENNA  ★ 

3  L  ★  KITH  GENERAL  RIM  SHAPE  AND  ARBITRARY  FEED  PATTERN  * 

A  ^ 

5  DIMENSION  JL<50)  ,JU( 50 ) , YLR( 50) , YUR( 50 ) ,OYL< 50) , QYU< 50 ), XN(3 > 

c  DIMENSION  RUGS (2 ) , CLRI M( 67 ,2 ) , CURI M( 67 ,2  >, RIMS (67, 2) 

7  DIMENSION  HI  M(  o7 ,2  ) ,  VI  (3  ) ,  V I  M(  67  ,3  ) , RMM(  67 ) , DELX (2  ) 

b  DIMENSION  ANPF(  I  0)  ,  AP2  (  I  0)  ,r'REO(  10 ) ,  PH  IN  (  1 5 ) ,  PSI  0(  15), 

0  1FP( 15, I5),PX< 15, 15 ) , AEX( 15),CAN( 15) 

10  DIMENSION  NSNSM0) 

1  1  COMPLEX  EDX, EDY, HDZ , FDT, FDP, FI P, EIT, El  X, El Y, EIZ, PHEI , YEXP 

12  COMPLEX  YSUM(3,50),EA(2,50,50) ,E(2,50) ,CJ,FH,FHXP,FHXM , 

13  2FXP,FXM,YMR,YML,ERX,FRY,XEXP,EXPL,FXPI ,EXPR,EXPM,EAI , EA2, 

I  2  2'YSLX  , YSLY,  YSLZ  , YSMX ,  YSMY,  YSMZ,  YS1JX,  YSUY,  YSUZ  ,PHSHA  ,EAL  ,EAU  , 

1  5  4  SUML X ,  SGML  Y,  SU MM X ,  SU  MM' Y ,  SI  1  MR X ,  SU MR  Y ,  SUM X , SI IM Y ,  SUMZ , TMX , TMT 

16  COMPLEX  CX,C\,FFXN,FHYM,FHYP,FYM,FYP,RFCT 

IV  LOGICAL  LLFTVJ.aI  ,LFFFD,1.GTP 

lb  LOGICAL  L  SLO  PL , LCORN  R , L  OUT , L  WF  D , LR  FS  ET , L  NR  I TF , LP LT 

IV  LOGICAL  LDEHl!G,LTEST,LWYSUM,LDFAS,LDB,  LCP,LNF,LRANG 

2  0  CO  MMON/LOGD I  F/ 1  .S LO  PF ,  LCORM  R ,  LNF ,  LR  AN  G 

2  1  COMMON  /Cm  IP  1/GRIPX,  GR  IPY,  EA 

2 2  COMM ON  /OR ! D2/CJ , CLR I M , CUR  I M , R I M , PG , XM I N , XM  A X , YM I N , YM A  X , 

23  2NLRI M.NLRIM.GRPX.GRPY, ACOSP.TANP ,PCHG,  MAXO,  NRI M 

2^  COMMON  /GEOM 1/ X( 67 ,3 ) , V ( 67 , 3  ) , MR IM 

25  COMMON  /GF0M2/VP (67,3) ,VN( 67,3) , BDC67, 2 ) ,VMAG(67 ) , RMC( 67 ) , 

2o  2  V I C ( 67 , 3 ) , XM  <  o7 , 3 ) 

2  V  COMMON  /PI  M/MDRI M 

2M  COMMON  /SORI NF/XS( 3 ) 

2  V  COMMON  /PI  R/PX (3  ),EIX,  FIY.EIZ 

d  COMMON  /NF/RFCT,  X00(  3)  ,PHI  E,  P2  ,  RR 

2  1  COMMON  /CTPP/LFFEP, LOUT,  LCP,  LWRITE.COSPT.SINPT, REF, TEM2 

32  COMMON  /FKP/N? , PHI N, PX ,FP, LPB, NCK, NPHI ,NPW , AEX .CAN , PSI 0, PSIT 

;  3  COMMON  /COMP/C X ,  CY ,  C>F,  PHP,  PHO,  KX ,K Y,  ISYM ,  SI NTL.COSTL 

34  COMMON  /PIS/PI  ,TPI, DPR 

35  COMMON  /PREV/IPR, PREP, PRFX, PRES 

36  COMMON  /TFST/LDEBUG,LTFST,MTFST 

27  COMMON  /FOCAL/F, ZOP 

38  COMMON  /EFIsDY/RHOS 

COMMON  /BPY2/TH1 ,TH?,THFB 
s0  COMMON  /RHEI./!),RO,  ICQ,  JCO 

41  COMMON  /OUT/MW 

42  DIMENSION  I R (? 4 ) , I T< 14 ) 

4 3  DIMENSION  LAHEU 2 , 3) ,UNIT( 3 ) 

DATA  IJMT/  1 .  3048,0.0254/ 

<3  DATA  LAPEL/ I FHMETHRSEEHT  INCHES/ 

a (j  DATA  I  T/42i!DC*TO*FD*  FO*NE*NX  »LP*  PP  *CM *CE  *TL*  PZ  *X0* EN  */ 

sV  DATA  PEL/0.01/ 

*.b  DATA  C/2.  :)8/ 

4  v  NiEST=0 

50  TEM2=0. 7 v-57  10678 
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b  1 


->  — 
b  4 
tb 

bo  C!  ! ! 
b7  CM! 
bb  CM! 

bV  C - 

ot 
O  1 
62 

03  2o I  fc) 
6  A 
6  b 

06  3000 
6/  C - 

6  b 

ov 

70 

7  I 

72 

73 
7  4 
7  b 
7o 
77 
7  b 
7  V 
bO 
b  I 
b2 
b2 
b4 
bb 
06 
b7 
ib 
bV 
VO 
V  I 
V2 
V3 

V-4 

vb 

Vo 
V7 
V8 
VV 
I  00 


CJ  =  !l>. ,  I  .  ) 

Mt>PAT=3o  I 
M!)EA=S0 
Ml)FP=lb 
MDR I M=04 

DE FAULT  DATA  !!! 


WRITE! 6, 3002  ) 

WRITE!6t300O) 

WRIT F (6, 36 10) 

FORMAT (2H  *,120,  'DEF AULT  DATA-'  ,T79,  I  H* ) 
WRITE (6, 3006) 

WRITE! 6, 3006) 

CONTINUE 

NX*  COMMAND  - 

LRESHT=.TRUE. 

LDEDUG*. FALSE. 

LIE ST*. FALSE. 

LWYSUM*.  FALSE. 

LOUT*. FALSE. 

LWFD-. FALSE. 

LS LOPE* .TRUE. 

LCORNR=.TRUE. 

LA  I  =  . TRUE. 

I  .FEED*. TRUE. 

LGTD*. FALSE. 

ZX=0. 

THETAX-0. 

LLFU*.  FALSE. 

LCP*. FALSE. 

LUB-.TRUE. 

I SYM  =  l 
TAU=90. 

NPHI =2 
PH I N ( I ) =0. 

PH  I N  ( 2 )  =  90 . 

N  P  W=  I 
AEX( I )=b. 

AEX!2)=6. 

CAN! I )=0.09 
CAN ! 2 ) =0 . I 
PSIO! I )= 120. 

PSI 0! 2 ) *  I  40. 

I  UNI T=3 
F=«. 

GRIDX=0. 6 
GRIDY*0.6 
D=24 . 
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Ml  PSIT=0. 

02  Y  C=0. 

Me  NFRQ=I 

04  FREQ! I ) = 1 1 . 

Mb  I  P2=  I 

Ob  AP2 ( I ) =0. 

07  AP3I =0. 

OH  AP3F=90. 

09  ADP3=5 . 

10  LWRITE=. TRUE. 

11  LPLT=.TKUE . 

112  INPF=0 

13  X00( I )=0. 

14  X00( 2 ) =0 . 

lb  X00( 3  )=0 . 

lo  PHIE=0. 

I  '/  RANG=  I  0000 . 

IH  LRANG=. FALSE. 

IV  LNF=. FALSE. 

20  GO  TO  31O0 

21  2000  CONTINUE 

22  LRESHT=. FALSE. 

23  WRITE (6, 3006 ) 

24  2006  FORMAT ( IX, I H* , 76X, I H*) 

25  WRITE! 6, 2006) 

2o  WRITE<6,3005) 

27  2005  FORMAT! IX, 26(3H***)} 

2b  C! ! !  READ  IN  VARIOUS  COMMAND  OPTIONS. 

2 V  2999  READ(5,2001,END=3004)(IR(I ),I=1,24) 

30  2001  FORMAT! 2 4A3) 

31  3059  WRITE! 6 ,3002) 

32  2!:02  FORM  AT! /// 1  X  ,26!  3H***)  ) 

2_  WRITE! 6,3006) 

34  WR I TE ! 6 , 3003 ) ! I R ! I ), 1=1,24) 

35  2 0 03  FORMAT! IX, 1H*,2X,24A3,2X, IH*) 

36  I F ( I R! I ) . EO. IT(9 ) .OR .1 R( 1 ) . EO. IT! 1 0) )G0  TO  3900 

37  WRITE!6,3006) 

3b  WRITE! 6, 2006) 

39  C! 8 ! 

40  o !  ! !  CHECK  AGAINST  STORED  OPTIONS 
4  I  C !  ! ! 

42  C!!!  DG  (ITU))  *  DISH  GEOMETRY  INPUT 

43  CM!  TO  ( I T !  2  ) )  *  TEST  DATA  GENERATION  OPTION. 

44  CM!  ED  (  IT !  2  ) )  «  FEED  PATTERN  DEFINED 

45  CM!  FQ  (11(4))  «  FREQUENCY  RANGE  DEFINED 

46  CM!  NF  (11(b))  *  NEAR  FIELD 

4  7  CM!  NX  (IT(o))  *  RESET  DEFAULT  DATA 

4b  C ! ! !  LP  ( I T ( 7 ) )  i  LINE  PRINTER  LISTING  OF  RESULTS 

49  C ! ! !  PP  (  IT ! 8  ) )  «  PEN  PLOT  OF  RESULTS 

50  CM!  CM  (1319))  •  COMMENT  CARD 
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lb)  C !  • !  CE  ( 1 1(  1 0 )  )  *  END  OF  COMMENT  INFORMATION 

Id 2  c !  ! !  1L  ( IT( 1  I )  )  *  FEED  TILT  ANGLE  AND  APERTURE  CENTER 

I  bo  ^!!!  PZ  ( IT ( 1 2 ) )  *  PHI  PATTERN  CUTS  DEFINED 

I  b4  c!!!  XO  (  IT  (  13)  )  *  EXECUTE  PROGRAM 

Ibb  C ! ! !  EN  (11(14))  *  END  PROGRAM 

I  bo  L ! ! ! 

Ibl  IE  (  I R  (  1  ) .  EO .  I T  (  I  )  )  GO  TO  3100 

Ibb  IF  ( I  R(  I  ) .  EO.  IT(  2  ) )  GO  TO  3200 

Ibv  IF  ( I R ( 1 ) . EO . I T ( 3 ) )  GO  TO  3300 

I  Ok.  IF  ( I R (  I  ) .  EO .  I T (  4 ) )  GO  TO  3400 

101  IF  ( I R( I ) . EO . I T( b ) )  GO  TO  3500 

102  IF  ( IR( I ) .E0.IT(6) )  GO  TO  3600 

lob  IF  (  IR(  1  ).EO.ri(7)  )  GO  TO  3700 

ic4  Ir-  (  I.<(  )  ).E0.IT(8)  )  GO  TO  3800 

16b  Ir  ( I R ( 1 ) . EO . I T ( II ) )  GO  TO  4000 

loo  Ir  ( IR( 1 ).EO.IT( 12 ))  GO  TO  4100 

16'/  IF  (  IR(1  ).EO.IT(  13))  GO  TO  4300 

16b  Ir  ( IR( I ). EQ.IT(  14  ))  GO  TO  3004 

loo  WRITEC 6,302  I  ) 

170  3021  FORM AT ( *  ***  PROGRAM  ABORTS!!!  COMMAND  INPUT  IS  NOT  PART  OF 
/ 

17  i  ’  I'  STORED  COMMAND  LIST  ***'  ) 

172  3.004  CALL  EXIT 

l/o  u - 

174  2100  CONTINUE 

17b  C -  DO *  COMMAND  - 

I  7o  CSSS 

1 1 7  CSSS  IUNIT=UNITS  USED  TO  INPUT  THE  FOLLOWING  LINEAR  DIMENSIONS 

178  CSSS  I  =1)1  MENS  IONS  INPUT  IN  METERS 

1  7 V  CSSS  2=1)1  MHNSIONS  INPUT  IN  FEET 

180  CSSS  3=1)1  M1ENSIONS  INPUT  IN  INCHES 

Ibl  CSSS 

lb2  CSSS 

183  CSSS  F=FOCAL  DISTANCE  OF  THE  PARABOLA 

184  CSSS 

lbb  CSSS  OR  I  DX=GR  II)  SIZE  IN  X-DIRFCTION  USED  IN  APERTURE  INTEGRATION 


186  CSSS 

187  CSSi  GRIDY=GRID  SIZE  IN  Y-DIR ECTI ON  USED  IN  APERTURE  INTEGRATION 

188  CSSS 

18V  CSSS  D=DI AME1 ER  OF  REFLECTOR.  IF  INPUT  GREATER  THAN  ZERO  ASSUMED 
I vt.  csss  CIRCULAR  AND  CODE  GENERATES  THE  RIM  POINTS.  IF  LESS  THAN  ZE 

h  0 

IS  I  csss  RIM  DATA  INPUT  WITH  FOLLOWING  READ  STATEMENT 
IV2  CSSS 

IVo  CSSS  NOTE*  ALL  ABOVE  DATA  INPUT  IN  UNITS  SPECIFIED  BY  IUNIT 
I  V  4  CSSs 

lbb  I F ( . NOT. LRHSHT ) READ  (5,-)  I  UNIT, F, GR IUX, GR IDY, D 

I  Vo  WRITE  ( c,3101)  (LAREL(N, IUNIT) ,N  =  I ,2) 

I  v  7  :iOI  FORMAT  (2H  LINEAR  DIMENSION  INPUTS  ARE  IN  f  ,2  A3  ,T79, 1  H* ) 

i v  8  WR I TE  (o,3  006 ) 

I  sv  !JNITO=UNIT(  IUNIT  ) 

200  IE  (D.LE.0.)  GO  TO  3104 
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00  1  WRIT!  (o,3l/2)  i) 

002  ;  102  ECRMAKOH  *,T8  ,'CI  RCULAR  REFACTOR  WITH  APERTURE  DIAMETER  =' , 
/V.'  0E9.0  ,379  ,  I  H* ) 

Ov  4  «l'm-:(o,3lH56) 

00  D  00  TO  3  112 

2oo  oi.ss 

20*/  CSSS  IE  DIAMETER  OE  DISH  IS  DEFINED  NEGATIVE  ABOVE, THEN  INPUT  RIM 
3 Go  CSSS  POINTS  1)1  RECTI. Y 
2t  V  LOSS 

Oh  Os  SS  NRIM=NUMPER  OE  RIM  POINTS  INPUT 
Oil  CSSs 

0  12  os  $S  R I M ( ME , 1 )  =  X- PO S I T I  ON  OF  THE  NE-TH  RIM  POINT 
21 o  OSSS  RI M( NE,2 )=Y-P05I TI ON  OF  THE  NE-TH  RIM  POINT 
012  oess 

OIL  2  104  IF  (D.LE.0.AND.  (  .NOT.LRESET) )  READ  (5,-)  NRI  M,  ( (  RI  M(  NE,N  ) ,  N=  1 
,0), 

0  16  1 NE= 1  ,NRI M ) 

017  WRITE  (0,3106) 

0 1 H  2100  FORM  AT (OH  *,TI 0, 'COORDINATES  OF  RIM  POINTS  IN  METERS' ,T79, 1H* 

019  ’  0/2H  *, TOO, 'RIM  POINT', 9X ,'X' , I 4X ,'Y',T79 , 1 H* ) 

00b  WRITE (6, 3006 ) 

00 1  DO  3110  NE= 1  ,NRI M 

000  WRITE  (0,3108)  NE, (RIM(NF,N) ,N=I ,2 ) 

000  RI MS( NE, 1 )=RIM(NE, 1 )*UNITO 

004  Hi MS( NE,2 ) =RIM ( NE,2 )*UNI TO 

22  J  31013  F0RMAT(2H  *, TO0,  IS ,2FI 5. 2 ,T79, 1 H*) 

006  3110  CONTINUE 

00  7  .2.1  10  WRITE  (6,3006) 

00 H  WRITE  (6,3  I  IS)  F,GRIDX,GRIDY 

009  3  I  I  S  F()RMAT(2I!  *,  1  10,  'FOCAL  DISTANCE*' ,F9. 2 ,T35, 'GRIDX*', F7 .3, 5X, 

02c  O'GRIDY  =  '  ,  E  7 . 3  ,T 79 , 1  H* ) 

02  1  FOCUS=F*UNITO 

030  GRX=GRIDX*UNITO 

02  ^  ohy=c;ridy*unito 

034  A=H.S*D*lJtmO 

03 S  IE (LRESET)GO  TO  3300 

026  GO  TO  3000 

037  C - 

036  20 DO  CONTINUE 

039  C -  TO*  COMMAND  - 

040  CSSS 

04  1  CSSS  LDEbUG=DHBUG  DATA  OUTPUT  ON  UNE  PRINTER  (TRUE  OR  FALSE) 

040  CSSS 

043  CSSS  L7ES7=TESY  DATA  TO  INSURE  PROGRAM  OPERATION  TRUE  OR  FALSE) 

044  CSSS 

04  S  CSSS  LWYSUM=lr.RITE  YSUM  DATA  ON  LINE  PR  INTER(TRUE  OR  FALSE) 

04o  CSSS 

047  CSSS  LOUT  =OUT  PUT  MAIN  PROGRAM  DATA  ON  LINE  PRINTER(TRUE  OR  FALSE) 
048  CSSS 

049  CSSS  LWFD=OUT PUT  FFHD  PATTERN  DATA  ON  LINE  PRINTER(TRUE  OR  FALSE) 
OLD  CSSS 


23 


2b  1 

2b  2 

2b3 

32  01 

2  b  4 

21  b 

2bO 

CSSS 

2  b  7 

CSSS 

,  bb 

Li.  $0 

2  b  V 

CSSS 

2oc 

Cl  5$ 

.16  1 

2o  2 

20  3 

32  02 

264 

20  0 

CSSS 

266 

Li.  SI 

2o7 

CSSS 

26  H 

csss 

20V 

csss 

270 

csss 

27  1 

CSSS 

27  2 

csss 

27  3 

csss 

27  4 

csss 

27b 

csss 

27  6 

2  j  / 

27  H 

27  V 

3204 

280 

26  1 

282 

283 

3200 

2b  4 

28  b 

286 

c - 

28  7 

33  0n 

2F8 

C - 

28  V 

2VD 

2  V  1 

2V2 

2V2 

CSSS 

2V4 

csss 

2  Vb 

cs  s$ 

2Vo 

csss 

2V  7 

C  S  ss 

2VH 

csss 

2VV 

csss 

300 

csss 

READ  (5,-)  L  DEBUG,  LTFST,  LWYSUM,LOUT,  LWFD 
WR ITE( 6 , 320 1 H.DERUG, LTEST, LWYSUM , LOUT, LKFD 

FORMAK2M  *,  bX ,  '  l.DEBUG=  ' ,  L2 , 5X ,  '[.TEST*  '  ,1.2  ,5X,  'LWYSUM=' ,  L2 
I  bX  ,y  LOU'l  =  ', 1.2  ,bX, 'LWFD  ,L2,T79,  IH*) 

WRITE(6,3006) 

LSL0PE=8L0PH  DIFFRACTED  FIELD  DESIRED  (T  OR  F) 
lcounr=cori;fr  DIFFRACTED  FIELD  DESIRED  (T  OR  F) 


RE  A! )  ( b ,  -  >L  SLOP  E ,  LC  ORNR 
W R I  TE  ( o ,  32  02  )L  SLOPE ,  LCORNR 

FORMA V(2H  *, bX, ' LSLOPE=  ' ,  \2  ,5X , 'LCORNR*  /,L2,5X, 
i  T79 ,  111*) 

LAIMPERTURE  INTEGRATION  SOLUTION  INCI  UDED  (TRUE  OR  FALSE) 

LFEED=FFED  SPILLOVER  INCLUDED  IN  SOLUTION  (TRUE  OR  FALSE) 

LGTI)=GTD  INCLUDED  IN  SOLUTION  (TRUE  OR  FALSE) 

THETAX= PATTERN  SWITCHING  ANGLE  FROM  AI  TO  GTD 

ZX-STARTINO  CRITERION  FOR  USING  AI  IN  NEAR  FIELD  CALCULATION 

READ ( 5 ,- )LAI ,LFEED,LGTD, TMETAX.ZXP 
WRITE  (6,3006) 

WRITE  (0,3204)  LAT .LFEED.LGTD 

F0RMAK2H  *,bX,'LAI  ='  ,L2 ,8X , ' LFEED  =' ,L2,6X,'LGTD  =  ', 
2L2.T7V,  IH*) 

WRITE  (6,3006) 

WRITE  (6,3200)  THETA X, ZXP 

FORMAT  ( 2H  *,bX, 'THETA X  =' ,F5.2 ,5X ,'ZX  =  '  ,F  I 0.3.T79, IH*) 

Z  X  P2  =Z  XP*UN I  TO 
GO  TO  3  C  00 


CONTINUE 

FD*  COMMAND  - 

KX=0 

KY=0 

C  X  =3  l  •  M2 + C J  *0 . 

CY=CJ*TE M2 

LLFI)=I NPUT  FEED  PATTERN  IN  TERMS  OF  LINEAR  DATA  POINTS 
IF  .TRUE.  OR  ANALYTIC  FUNCTION  IF  .FALSE. 

I.CP=FEED  IS  CIRCULARLY  POLARIZED  (TRUE  OR  FALSE) 

LDU=FEED  DATA  INPUT  IN  OB., IF  LDB=.TRUE. 

L I  NEAR  FEED  DATA  INPUT,  IF  LDB*. FALSE. 


« 
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F 


30  i 
002 

303 

304 
3t*b 
300 
3fr)*/ 
30b 
3t  V 
310 
3  1  I 
:<12 

313 

314 
31b 
310 
31'/ 
31b 

319 

320 
32  1 

322 

323 

324 
32  b 
32  6 
327 
32  b 

32  V 
J30 

33  1 
332 

334 
33b 
33o 
33'/ 
33  b 

33  V 
340 

34  1 
342 
3  4  3 
3*4 
34b 
346 
34  7 
34b 
349 
3b0 


CSSS 

csss 

csss 

c$$$ 

c$$s 

csss 

csss 

csss 

csss 

csss 

csss 


COEFFICIENTS  OF  THE  FEED  PATTERN 
ISYM=0  NO  SYMMETRY 

I SYM=  I  EVEN  SYMMETRY  W. R.T.  X  AND  Y  AXIS 

ISYM=- I  ODD  SYMMETRY  W.R.T.  X  AND  Y  AXIS 
ISYM=2  EVEN  SYMMETRY  W.R.T.  X  AXIS 
I SYM=-2  ODD  SYMMETRY  W.R.T.  X  AXIS 
ISYM=3  EVEN  SYMMETRY  W.R.T.  Y  AXIS 

ISYM=-3  ODD  SYMMETRY  W.R.T.  Y  AXIS 


CSSS 

C($$  PSIT=TILT  ANGLE  OF  FFED  RELATIVE  TO  -Z  AXIS  IN  THE  YZ  PLANE. 
CSSS  NORMALLY  ZERO  I  HOWEVER  USEFUL  FOR  OFFSET  REFLECTOR 

CSSS 

CSSS  TAU=LI NEAR  POLARIZATION  ANGLE  RELATIVE  TO  X-AXIS  OF  FEED 
CSSS 

I F ( . NOT. LRESET ) READ( 5, - ) LLFD ,LCP ,LDB , I SYM, TAU 
NCK=2 

IF(LLFD)NCK=0 

IF  ( LCP )  WRITE  (6,3301) 

330  1  FORM AT(2H  *,T8  ,'CI  RCIJLARLY  POLARIZED  FEED/ ,T79, 1 H* ) 

WR  ITE(  6, 3006  ) 

WRITE( 6 , 3302 ) I SYM 

3302  F0RMAK2H  *,18, 'FEED  PATTERN  SYMMETRY  GIVEN  BY  *  I  SYM»' ,  12 , 
1179, 1H*) 

WRITE (6, 3006) 

CSSS 

CSSS  NPHI  =NUM.BER  OF  INPUT  FEED  PATTERN  CUTS 
CSSS 

CSSS  PH I N ( N ) =  PH I  ANGLE  OF  N-TH  INPUT  PATTERN  CUT 
CSSS 

IF ( . NOT. LRESET ) READ  (5,-)  NPHI ,< PHIN(N), N»l , NPHI ) 

IF  (LCP)  GO  TO  330b 
WRITE  (6,3303)  TAU 

3303  F0RMAT(2H  *, T8, ' LI  NEARLY  POLARIZED  FEED' ,T79, I H*,/2H  *,T79, 

2  1H*,/2H  *,T10, 'POLARIZED  ANGLE  *' , F7 .2 ,T79, 1 H* ) 

WRITE(6, 3006 ) 

TAUR=TAU/DPR 
SINTU=SI N( TAUR ) 

COSTU=COS( TAUR ) 

CX=COSTU+CJ*0. 

CY=S.I  NTU+C  J*0. 

330b  CONTINUE 

I F (LDB ) WRITE (6, 4002 ) 

4002  FORM AT (2H  *,T10,'FEED  DATA  INPUT  IN  DB.' ,T79, IH*> 

I F ( . NOT. LDB ) WR ITE( 6 , 4003 ) 

4003  F0RMAK2H  *,T1  0, 'LINEAR  FEED  DATA  INPUT' ,T79,  1 H* ) 

WR IT E(6,3006 ) 

IF  (UABS(CX) .GT. 1.D-5X  KX=I 
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3b  I  IF  (  UABS(CY)  .GT.  I  .0-5)  KY=1 

3b2  WR ITE( 6, 3006 ) 

3b-  PN I  =  PH  I N  ( I ) 

3b  4  i*NN=PM  I N  ( MPH I  ) 

3bb  I  Ei=I  ABSt  I  SYM  ) 

J‘jft  PHQ=9w. 

3b'/  PHP=H. 

3b f:  U!!  CHECK  INITIAL  AND  FINAL  INPUT  PHIN 

jbV  IF  (  IB. EO. 0.  AND. PN  I  .NE.-180.  )  GO  TO  285 

3oi.  IF  ( IB.EO. I .AND. (PNI .NE.0. .OR.PNN.NE.90. >)  GO  TO  285 

jo  I  IF  ( IB. FO. 2. AND. (PN1 .NE.0. .OR.PNN.NE. 180.) )  GO  TO  285 

362  IF  ( IB. FO. 3. AND. (PNI .NE.-90.. OR. PNN.NF. 90. ))  GO  TO  285 

3o3  IF  ( LLFD)  GO  TO  3315 

36  4  CSSS 

3c b  CSSS  ANALYTIC  FEED  PATTERN  INPUT! LLDF=. FALSE. ) 

ooo  CSSS 

3o/  CSSS  NPW-COSINE  RAISED  TO  THIS  POWER 
3oB  CSSS 

36  9  CSSS  AF.X=EXPONI:NTI AL  FACTOR  TO  CONTROL  SIDE  LOBE  LEVEL 

37 0  CSSS 

371  CSSS  CAN=CONSTANT  TERM  TO  APPROXIMATE  FAR  OUT  SECTION  OF  FEED 

37 2  CSSS  PATTERN 

373  CSSS 

374  CSSS  PSIO(N)=ANGLE  TO  CONTROL  THE  ZERO  ASSOCIATED  WITH  COSINE 

37b  CSSS  FOR  THE  N-TH  PHI  INPUT  FEED  PATTERN  CUT 

376  CSSS 

3.77  CSSS  NOTE  i  FEED=CEXP<  -AEX*(  PSI/PSIO  )**2  )*COS(  .5*PI  (  PSI/PSIO  ) )  **NPW 
+C  AN 

37 a  csss 

37 V  IF( . NOT. LRESET) READ  (5,- )NPW,( AEX(N) ,CAN(N) ,PSIO(N) , N= 1 , NPHI ) 

380  WRITE  (6,3308)  NPW 

38  1  3308  FORMAT  (2H  *,T12,5HNPW  = , I  2 ,T79, 1H*,/2 H  *,T 1 6, 'N' , T26, 

3o2  l/PHIM(N)/,6X,/PSI0(N)/fyX,'AEX(N)/ ,7X, 'CAN(N)' ,T79, IH*) 

383  DO  3312  N=I,NPHI 

384  WRITE  (6,3310  N  .PHI  N(  N)  ,PSI  0(  N> ,  AEX  (N  ) ,  CAN(  N) 

38b  -21//  FORMAT ( 21!  *,T1  5,  12 , 3F 1 4.  I ,  F 1 3. 2 ,  T79,  IH* ) 

380  12  CONTINUE 

38  7  08  i  O  Ut'1 

388  231b  N I =0 

28b  l.SSS 

3b/  CSSS  I.  INF  Ah  FEED  PATTERN  INP1IT(  LI.FD-.TRUE  . ) 

2b  1  CSSS 

392  CSSS  N2*MAX I  MUM  NUMBER  OF  FFED  PATTFRN  POINTS  TO  BE  READ  FOR 
3V2  CSSS  ALL  INPUT  PHI  ANGLES 

394  CSSS 

3vb  IF (.NOT. LRESET) READ  (5,-)  N2 

3Vo  WRITE  (6,3318)  N2 

397  3318  FORM AT(2H  *  ,TI  M, 'M  AX  IMIJM  NUMBER  OF  FEFD  POINTS*' ,I2,T79, IH*) 

398  WRIT E( 0,3006) 

3VV  IF  (M2.CT.MDFP)  GO  TO  272 

480  NPP=NPH1+I 
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41/1  I  r  (KY.EO.0)  WHITE  (6,33 20) 

4l.?  IF  (KX.EO.O)  WRITE  (6,3322) 

40  3  3320  FORM  AT  (2H  *, TO , ' X-OR I ENTED  DIPOLE  FEED' ,T79, IH*) 

404  3322  FORMAT! 2 H  *,T8,'Y-0RIENTED  DIPOLE  FEED' ,T79, t H* ) 

4(5  WRITE(  6,3006) 

40o  DO  3340  NP=I ,NPHI 

40*/  WHITE  (6,3325)  NP,PHIN(NP) 

408  3325  F0RMAT(2H  *,T8,5HPHIN( ,1 1 ,3H)  =, F6. 1 ,T79, l H* ) 

40V  WH ITE( 6,3006 ) 

410  WHITE  (0,3326) 

411  232o  FORMAT! 2 H  *,TI 0, 27HP IECEWI SE  LINEAR  FEED  INPUT, T79, 1 H*,/ 

412  22H  * ,TI b,3HPSI ,T3I ,IHF,12X ,5HF( DB) ,T79 , 1 H*) 

413  WHITE! 6, 3006) 

414  DO  3340  K= I , N2 

415  L$$$ 


4 1 o  L$$$  PSI X=K-TH  PSI  PATTERN  ANGLE  OF  INPUT  FEED  POINT 
4  1'/  c$$s 

418  L$$$  FN=PA1TERN  VALUE  IN  DB. 

41 V  C$$$ 


420  IF(.N0T.LRESET)READ  (5,- )  PSIX.FN 

421  PX (NP,K)=PSI X 

422  FP(NP,K)=FN 

423  IF  (NP.GT.I)  GO  TO  3328 

424  PX ( NPP , K TOPS I X 

425  FP(NPP,KTOFN 

42o  3328  IF  ( LDB)  GO  TO  3330 
42  7  AFN= ABS(FN ) 

428  IF  (AFN.LT.I.E-5)  FDB=-500. 

42V  IF  (AFN.GE.l  .F>5)  FDB=20,*ALOG10(AFN ) 

430  GO  TO  3332 

43 1  3330  FDB=FN 

432  FN=1O.**(FDB/20. ) 

423  3332  WHITE  (6,3334)  PSIX,FN,FDB 

434  3334  FORMAT! 2 H  *,T1 0, FI 0.2, FI 5. 4, FI 3.2,T79, IH*) 

435  3340  CONTINUE 

43o  GO  TO  3000 

437  C - 

428  2400  CONTINUE 

42V  C -  F0»  COMMAND  . - 

440  C$$$ 


4*1  C5.$$  NFRO=NUMBER  OF  FREQUENCIES  CONSIDERED  IN  COMPUTATION 
442  C$$$ 

4'. 2  C$$0  FHHO(  I  TOI-TH  FREQUENCY  IN  GIGAHERTZ 
4-4  C$$$ 


445  RHAD(5,-)WFH0, (FHEOC I) ,1=1 ,NFRO) 

44  o  WHITE (6, 340 1 )NFRO, ( FHEO( I ) ,1  =  1 ,NFRO) 

447  2401  FORMAT (2H  *, '  FOR  THIS  GEOMETRY, THERE  WILL  BE  ',13,'  FREOUENC 
IE  S' 


448 
44  V 
450 


1,'  CONSIDERED  AS  FOLLOWS*' ,T 79, I F*,/2H  *, I 0( F6 .2 , ' ,' ) , 
2T79, IH*) 

GO  3C  300!) 


4  b  I  C - 


4b  2  ~5W0 

4b 3  C - 

4  b  A 
4bb 
4b6 
•t  b 7 

4bH  2501 

*) 

4  lj1/ 

4  O'/) 

40  I 

462  2  b  02 

462 

4o4 

46b  2b 0b 
466  2b 06 
L*) 

46'/ 

468 

46V  2b0'/ 

470 
47  1 
472 
47  2 
47  ■». 

47 b  2500 
476 

4  7 7  2b  0V 
47  b 
47  V 

4  b  0  c — 
4b  I  27  00 

482  0 - 

483  CS>  $J 
48<i  Ct$0 
48 b  C$$$ 
480 

487  2701 

488 
4o  V 
4V0 


CONTINUE 

NF*  COMMAND  - 

HEAD  (b,-)  LKF.LRANO 
Will'll:  (0,3000) 

1 1-  (LNF)  GO  TO  3505 
hii‘I'i'7  ( O  ,3bO  1  ) 

FORMAT  (211  *,lb,'FAR  FIELD  PATTERN  KILL  BE  CALCULATED' ,T7V ,  l  H 

IF  (  .NOT  .LKAPG)  (X)  TO  3 10 GO 
HEAD  (b,-)  RANG 
WHITE  (6,3b(J2)  HANG 

FORMAT  (2H  * ,110,' KITH  RANGE  =  ' , F I  0. 2, T79,  1 H*) 

RANG=RAKG*UKITO 
GO  10  30.00 
WHITE  (6, 3 bOO) 

F  OHM  AT  ( 2H  *,Tb,'NEAR  FIELD  PATTERN  WILL  BE  CALCULATED' ,T79, I 

HEAD  (b,-)  PHIE,(XC0(I),I*I,3) 

WHITE  (C,3b07)  PMI H, (X00( I ) , 1= I , 3) 

FORMAT  ( 2H  *,T10,'IN  PHI  E  =',F7.2,'  DEGREE  CUT,  AMD  ORIGIN  AT 

23(F6. 2, ','),'  )',T79, I  H* ) 

XOI=XCO( 1 )*UNITO 
X02=X()0(2)*Um'0 
X03=XC0(  2 )  xlJMITO 
IF  (LHAKC)  WHITE  (6,2508) 

FORMAT  ( 2!  I  *,  Til,  'WITH  OONTANT  RAM  OF ',179,  IH*) 

IF  (.NOT. LUANG)  WHITE  (6, 3509) 

FORMAT  (  2H  *,110, 'WITH  OONTANT  Z  CUT', 779,  I  ii*) 

WHITE  (6,3006) 

(.0  TO  3(00 


CONTINUE 

I.P*  COMMAND  - 

SET  WHITE  OUTPUT  FLAG  FO  DATA  VRITTHU  OUT  ON  LIME  PRIMER. 
WRITE (6, 370 1 ) 

FORM  A3' (2H  *,bX,'  DATA  WILL  BE  OUTPUT  CM  LIME  PUr'IEM  !!!', 
1T79,  II!*) 

lwrite=.thuf. 

GO  TO  3000 


4V1 

c - 

— 

4V2 

2  o(30 

CONTINUE 

4V3 

494 

CS-$$ 

up*  command  - 

-  “““ 

4Vb 

SET  FI. AC  SUCH  THAT  TDI;  DATA 

WILL  BE  PEN  PLOTTED 

4VO 
4V7 
4V8 
4  VV 

CSSS 

CSSS 

IN’  RECTANGULAR  FOR/’ 

READ  (b,~)  L!T.  i ,  INPr 

IF  <1.21.3  >  WHITE  (6, 3002  ) 

500 

2002 

».*) 

FORM  AT  (2D  *,  tiX  , 'DATA  KILL  B! 

:  OUTPUT  33  PEN  PLOTfEP 

!  !!',  r/9,  1 
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b0  I  I F  (  .NOT .LPLT )  MITE  (  6 , 3S04  ) 

bl f>2  o«04  FORMAT  (211  *,bX,'NC  PLOT  OUTPUT  GENERATED'  ,779, 1  H* ) 
b03  IF  (INPF.EO.O)  00  TO  30L0 

b04  IF  (IilPF.GT.O)  READ  (5,-)  (ANPF(L)  ,L=I  ,  INPF) 

bl «‘j  IF  ( INPF.LT.O)READ  (5,-)  AMPF(  t  )  , ANPF( 2 ) 

b06  GO  TO  2 1 TO 

bL7  C - 

bOb  2900  CONI  INI  if; 

b(‘9  C -  CM*  OR  GH*  COMMAND  - 

b 10  CSSS 

bll  CSSS  READ  "CA'*M  CARDS  AS  COMMENTS  UNTIL  A  "CL*"  CAR!)  IS  I  "PUT  V.’MIC 
I 

b  1  2  CSSS  LMDS  CO A  KENTS 


bio  CSSS 

b  1 4  3999  IF  ( I  lt(  1  ) . EO.  IT (10)  )G0  TO  3000 


b  1  b  RE Al)  ( b ,  300  1 ,  EN  1)=  3004  )  (  I R  ( I  ) ,  I «  1 , 24  ) 

b I C  WRITE (0 , 3003  )  ( IR ( I  ) ,  1=  1  f  24  ) 

bl/  If  ( i  R(  !  ) . EO. IT(9 ). OR. IR(  1 ) ,F0. IT( I  0) )00  TO  2999 

blH  GO  TO  3 Ob 9 

b  I  9  C - 

b20  9100  CONTINUE 

b2  1  C -  TL»  COW*  AN  f)  - 

b22  CSSS 

b23  CSSS  PSI7=TILT  ANGLE  OF  FELL)  RELATIVE  TO  -X  AXIS  IN  THE  YZ  PLANE. 
b24  CSSS  NORMALLY  ZERO  | HOWEVER  USEFUL  FOR  OFFSET  REFLECTOR 

b2b  CSSS 

b20  CSSS  YC-Y -COORDINATE  OF  APERTURE  CENTER 
b27  CSSS 

b2H  READ  (b,-)  PMT.YC 

b2 9  WRITE  (0,4001)  PSI7,YC 

b30  9001  FORMAT  (2H  *,T  10, 'FEED  AXIS  TILT  ANGIJ:  ='»FU.2  ,779 , 1  !!*,/2!i  *, 
b3l  2779,  IH*,/2H  *,TI  0,  ‘'APERT  IRE  CENTER  AT  FO  .3, ') '  fT7V ,  1  H* 

) 

b32  YCM*YC*UNITO 

b33  WRITE  (0,3000) 

b34  GO  TO  3 LOO 

b3b  G - 

b2 o  'loo  continue; 

b37  C -  PZ*  COMMAND  - 

b3b  CSSS 

b3v  CSSS  I  P2« ABSOLUTE  VALUE  OF  NUMBER  OH  PATTERN  CUTS  .DESIRED. 
b<0  CSSS  IF  IP2  LESS  THAN  ZERO  .THEN  INPUT  AMP  SUCH  THAT 

b4  1  CSSS  P2=AP2( I )+(N-l )*AP2(2)  FOR  N=0  TO  N-/IP2/-I. 

b92  CSSS  IF*  IP2  GREATER  THAN  ZERO  ,71'ED  IP2UT  THE  DESIRED 

b 4 3  CSSS  PATTERN  CUT  VALUES  INPUT  DIRECTLY 

b 94  CSSS 

b4b  READ  ( b,-  )  I  P2 

b4o  NP2=I ABS( I P2 ) 

b47  WRITE(6,4H)I  )UP2 

b  4b  9101  FORMAT  (2H  USING  THE  PRESENT  GEOKJT  RY,  TUHRi:  ’..ILL  IT  ',13, 

d49  I  '  PATTERN  CUTS  COMPUTED'  ,T79 , 1 II* ) 

bb0  WHITE (6, 3000) 

bbl  WHITE ( 6,2000) 
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bb 2  C$$$ 

bb2  C$s$  AN P=  I NF CRM AT  1  ON  ASSOCIATE)  WITH  IMF  D1  SIRED  CUTS.  Till: 

bb4  C$C$  DEFINITION  OF  liilS  A  NANG  AY  IS  01 VFD  IN  TIIF  PREVIOUS  COMMENTS 

bbb  C5$$ 

bbo  IF  (IP2.G2.0)  READ  (b,->  ( AP2( L) ,L=I ,NP2 ) 

bb 7  IF  ( I  P2 .CT.  (5 )  RR IT E(  o,  ^  1 02  )  (  AP2 ( L ) , L=  I  /  P2  ) 

bbb  <<  I 02  FORM  AT  (2H  SINCE  IP2  IS  POSITIVE  TiJF  FOLLOWING  CUTS  WILL' 
bbV  I,'  bH  COMPUTED*'  t'i'7V,  1 11*  ,/2H  *  ,8  (F6.  I , '  , '  )  ,T79t  I  H* ) 

bOO  IF  ( IP2.LT. 0)  REAP  (b,->  ( AP2( L) ,L=I ,2 ) 

be  I  I F ( I P2 . LT. 0 ) WR I TE( 6 , 4 1 03 ) AP2 ( I ) , AP2 ( 2 ) 

bc2  ',103  FORM AT(2H  PA7T  ERN  CUTS  WILL  HF  COMPLIED  STARTING  AT  P2=' 
'joj  l  tF0.  I ,  '  AND  IKCRhMHN'iED  BY' ,  F'6  .  I  ,T79 , 1  H*  ) 

bo4  WRITE!  0,30130) 

be  b  C5$$ 

boo  C5$$  AUP3=I NCREMENTS  IN  PATTERN  VAI.HES  FOR  EACH  CUT 
b07  05 $$ 

bob  0$  05  AP3I  =1  Nil  I AL  THETA  ANGLE  OR  RHO  FOR  EACH  CONFUTED  PA  IT  ERN  CUT 
ooy  05$$ 

b‘/0  0$  $$  AP3F=fI NAL  THETA  ANGLE  OR  RHO  FOR  PATTERN  CUT 
b7  1  C$$$ 

b 7  2  RE  AD  ( b ,  -  )  A  P3 1  ,  AP  3F  t  A PP 2 

b"/3  WRITE  (0,4104)  AP3I  ,  AP3F 

0/4  4104  FORMAT (2H  *,bX,'AP3I  **' , F7 .2 ,5X, ' AP3F  =' ,F7. 2.T79, 1H*) 
b7b  WRITE  (0,3000) 

b/o  WRITE (0,4  I  0b )ADP3 

b'<7  *  1 0b  FORM  AT  (2H  *,'  FOR  EACH  CUT  THE  PA1TFRN  WILL  !iE  COMPUTET*  EACI 

b7b  I  ,f6.  I ,  '  DEGREES  THETA  OR*',  779,  *,T 79,  I.’1*, /2D  *, 

b7 9  2 '  INPU3  UNI3  IN  RH0'tT79, ID*) 

bb  17  I F  (  . N 03  . L. N E )  ( !0  TO  *  1 1 ■  6 

bb  1  4  I  0O  WK  IT E ( 6 , 2 006  ) 
bb2  GO  TO  3(  00 

bb  2  C - 

bb 4  ',2(30  CONTINUE 

bob  O -  XQ*  COMMAND  - 

bbO  RECT=( I . ,0.  ) 

bb  7  S I  NTL= S I M ( PS  I T/D  PR  ) 

bbb  COSTL=COS( PSIT/DPR ) 

bb9  IF  (  .MOT  .LWpD)  GO  TO  70 

bV0  C 

bVl  C  ***  PRIM  FEED  PATTERN  *★* 

bV2  C 

bvi  IF  (NCK.EO.C)  DPSI =b . 

bVA  IF  (NCK.E0.2)  DPSI=PSI0( 1 )/I0. 

bvb  PHI P=0. 

b9o  DO  oo  NP=! ,2 

bv 3  WRITE  (0,60)  PHIP 

bVb  O0  FORM A3 ( /2H  E,Tb,6HPHIP  = ,F7 . 2, I  X ,20H  DEGREE  FEED  PATTERN *T79 , 1 
I  ,r 

bvy  2  ,/PH  F, i I  X ,3HPSI ,129,2HGX,1 1 X, 2HCY,T7y, i HF ) 

000  WRIT!: (6,  3(106) 
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()</  i 

Pol =0. 

002 

Do  6b  I  =  1  ,  1 V 

603 

CALL.  FPFIKPSI  ,PHIP,PSA,P!!C/M  ) 

004 

GX=b AUS  (  Oh *C  X ) 

O0b 

GY=BAHS( Cr*CY ) 

606 

Ir-  (.MOi.LDP)  GO  id  62 

60*/ 

IP  (GX.LT.  l.i-b)  OX*- 100. 

608 

lh  (GY.Li.  I.L-b)  GY*-I  O' 1  • 

60V 

IP  (GX.C  r.  1 .  t— b)  C;X=2O.*ALOO10(nX.) 

O  1  0 

IP  ( GY.GF. 1 . F-b)  CY=2<  ■  .*  /LOG  1 .) ( GY) 

ol  i 

o2 

COM3  IKJt: 

ol2 

RldU  (f:i.,o4  )  PSI.GX.GY 

6 1  2 

64 

rUldV  AT  (  2  1  i  t"  ,T  1  0 «  r  /  •  2  .  b  X ,  s.r  12.4. 1  /V  ,  1  Hr  ) 

6  1  4 

PSI=PSI+DPSI 

61b 

ob 

CON  i  I KUP. 

o  1  o 

PH  I P=PHI P+VO. 

617 

06 

CONTI MUP 

018 

70 

'iP.MP=PSl  3 

61V 

PSIT=.i. 

620 

C 

02  1 

C 

***  PLO'l  FLKD  PATTFUN  *** 

022 

c 

622 

IP  (  LNPF.HO.O)  00  TO  80 

624 

NNP= I ABS ( I NPP ) 

o2b 

LA  8=0 

020 

DO  76  MP=I.NMP 

627 

IP  ( I NPP. 07 .0)  PUI P=ANPP(MF) 

628 

IP  (I N  PP .  L  T.  0 )  PHI  r>=  fiVPfU  )+( Mf-  1 )  *A  VPF  ( 2 ) 

62  V 

PHI  PF*PHI  P 

o30 

PS 1=0. 

63  1 

DO  7b  1= 1 , bl 

622 

PSIP=AML(PSI ) 

o33 

IP  (PSI.LT.0.)  PHI PF=PHI P- 1 30. 

034 

CALL  PPHD ( PSI  F,  PHI PF, PSA, PFCAM ) 

o3b 

AGX=HABP (OF*CX } 

62  6 

AGY=HA  HS ( GF*CY ) 

o37 

IP  (AOX.LT.l .K-5)  OXDB=-10L. 

038 

IP  (AOY.LT.l  .1-5 )  GYDB=-tO0. 

o3  V 

IP  (  AGX.Cf-:.  1  .f:-b)  GXD8=20.*AI.OCIO{  AGX) 

o4  0 

IP  (ACY.CF.  1  .P-b)  CYI>i3=20.*ALOGK'(AOY) 

04  1 

IP  (KX.hO. 1)  PL7 F=CXDB 

642 

IP  (KY.PO.l)  PLTF=OYIH 

642 

PSI=PSI+l. 

04  4 

7b 

com  j  mup 

04  8 

7  o 

CONTI UHL 

04  0 

LA 8=0. 

04  7 

IF  ( ( .HOT  .LAI)  .  AND.  (  .MOT. LOYD  )  GO  TO  3f(W 
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Power  Radiated  by  feed  (Section  1) 


ObV  L 
09U  U 
oy  1  (_ 
o92 
69 -s 

OV4 

09  0  VO 
OVo 
OV7 
C9b 

oyv  v7 

/t» 

7t:  l 

V  Sr.  ^ 

70  3 
/04 
/VS 
7UO 

7i>-  7  98 

/vn, 

7  i-y 
/  U- 
7  l  i 
7  1  2 
/!-•> 

/  U 
/l‘j 


***  F'Hh'GUb'NCY  LCOP  **★ 

DU  2  70  10=1, NF RO 
WRIT  1-1(6,3006) 

WITH  (6, Vo)  FRHO<  IQ) 

FORM  AT (211  *,TI0, 'FREOUENCY  «',F10.3,'  GHZ'  ,T79 ,  1 H* ) 
write (o,3 006 ) 

HLAM=  I  .1>-9*C/FRE0(  10) 

WHITE  (6,97)  RLAM 

FORMAT,  (211  *,T 10, 'WAVELENGTH  *',F12.6,'  METERS' ,  T79,  111*,  /2M  *. 
2TI 0,  '★  IMF  FOLLOWING  I)  INF?!  5 1  ON  UNITS  A  RF  IN  WAVELENGTHS  *'  , 
3779, IH*) 

WHITE  (o,30(5o) 

IF  (.NUT.LNF)  GO  TO  98 
X()0(  1  )  =X01  /RLAM 
XU0(2)=X02/RLAM 
XUU(8)=X03/RLAN. 

RR=RANG/RLA,M 

IF  ( LHAMG)  hFCT=CLXP(-CJ*TPI *RR) /RK 

!J=2.*A/RLAM 

YC-YCM/RLAM 

F=FU(;US/HLAi, 

ZX=ZXP2/RL AM 
RlML-bO!:T(F/2.  ) 

IF  ( l.NF )  RI.ML-RI  M.L/2  . 

IF(l).LF.0.  )G0  TO  104 


Rim  point  calculation  for  circular 
aperture  (Section  2) 
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74  1 

104 

74  2 

74  3 

10b 

744 

74  b 

740 

74  7 

748 

1  06 

74  9 

/  bO 

7b  1 

108 

7b2 

7b  i 

764 

7bb 

7b  6 

1  09 

7  b  7 

7b  b 

7b  v 

760 

7o  1 

7o2 

763 

7o4 

76  b 

7oo 

110 

D) 

7o/ 

768 

769 

7  7  O 

77  1 

772 

1  1  1 

773 

77  4 

77  b 

77  o 

7  7  7 

778 

77  V 

780 

78  1 

782 

1  12 

783 

C 

784 

C 

78  b 

C 

786 

78  7 

788 

0 

78  y 

c 

writ (6,  3006) 

WHI'I  h  (0,10b) 

F0RMAT(2F  *,TI0, 'COORDINATES  OF  RI V  POINTS  (WAVELENGTHS) ',17 

2  I H*,  /2\\  *,T20,'RIM  POINT', 9X.'X'  ,  I  4X,'Y'  ,T79, 1  H*) 

RMAX=0. 

DO  108  NE= I , MW  I M 
DO  106  N-l  ,2 

R I M  ( Nh ,  N )  =R  I  PS  ( NE ,  fi )  All  AM 
RHOSO=RH’(NL,  I  ) **2+RIM( HE, 2  )  **2 
IF  (RHOSO.OT.RMAX)  RMAX=R!’OSO 
WRITE  (6.310D)  NE, ( R IM ( ME, N) ,M=I ,2 ) 

WHITE  (0,30(56) 

GHII)X=GRX/RL/M 
GR I DY»Gk Y/RL/M 
WRITE  (6,1(50)  F.GRIDX.GRIDY 

FORMAT  ( 2H  *,T  12, 'FOCAL  DISTANCE  ='  ,  l-o  .2  ,T79 , 1  H*  ,/2H  *,119, 

2  W*,/2H  *,'H2,'GMl)X  =',  F7.2  ,5X,  'ORIOY  =' ,F7 .2 ,T79,  I  H*, ) 

WHITE  (6,3006) 

ZOP=HMAX/( 4 . *F ) 

Z0=F-Z0P 

RO=SORT( RMAX+Z0**2 ) 

XS( I )=0. 

XS (2  )=W. 

XS( 3 )=ZC 

IF  (LTHS1)  WHITE  (6,110)  ZOP.ZO.RO 

F0RMAK2II  I),'1I0,4I!ZOP=,F9.2,5X,3HZO=,F9.2,SX,3HUO=,F9.3,T79,  1H 

RE  FD  8=  1 0 .  *  ALOG 1 0  ( 2 .  *  TP  I  /  ( F  *F  *P  k  A  D )  ) 

REF=REFDF 
IF  (LRANO)  REF=0. 

WR ITF( 6, 3006 ) 

WRITE  (6,111)  REF 

FORM  AT (2H  *,TI2,'REF  =' , FI  V . 3, T79, 1 H* ) 

WRITER  0,3006) 

PHSEA-C EXP ( -CJ*TPI *R0) 

P3I=AP31 

P3F=AP3F 

DP3=ADP3 

IF  (.NO'l.LNF.OH.LHANG)  GO  TO  112 
P3I=AP3I*UNITO/RLAA< 

P3F=AP3F*UMT0/RLAM 
DP  3=  A0P3*UN  I TO/RLAM 
NT=( P3F-P3I )/DP3+1  .  1 

ALL  UNITS  ARE'  IN  WAVELENGTHS  FROM  HERE  ON  *** 

IF  ( LPI/i  )  WRITE  (2)  LNF, LUANG,  LAI,  LOTH 

IF  (LPI/I)  WRITE  (2)  P3I ,  P3F,  DP3,  MP2,  PHIE,F,D,GRI  DX  ,YC,  RR  ,PSI  T 
***  SET  UP  PRINCIPAL  GRID  *** 
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CALL  GRIL)(0.,ICO,IMO) 

FJC=-YMIN/GR DY+DEL 
JCl)=FJC+  I 

I F  (  FJC .  LT . -  I .  )  JCO=  JCO-  I 

FJ=YMAX/GR1)Y+I)EL 

JM0=FJ+JC0 

IF  ( LTEET )  LRITE  (6,113)  ICO.IMO, JCO.JMC 
113  FORMAT(2H  L,TI  0, ^HICO=  , I  3, 5X ,4EI MO=,  13 , T79,  1  UD,/2\l  !),T!0,4HJ 
co=, 

2,I3,bX,bHJMO  =,i 3.T7V,  HIT) 

IC=ICO 
JC=JCU 
I M AX  =  I  ML 
MM AX=I MC+2 
NMAX=JMC +2 
MAXO=M «/ X 

IF  (  NMAX.G’I .  iYAXO  )  MAXO=MMAX 
MNO= ( MAXO+ I )/2 
AX=XMAX-XH  IN 
BY=YMAX-YM IM 

IF  (MAXO.LF.M)LA)  GO  TO  116 
M  AX=MAXC 

114  WRITE (6,3006) 

WRI’lE  (o,llb)  MAX 

lib  FORM  AT (2H  E,TI/,'MAX  =  ', I3.T79, 1  HE ) 

WKlTE(6,3O0o) 

GO  TO  272 
1  lo  CONTINUE 
C 

IF  (I  .TF:  n .  OR .  L  HE  RU  G )  N  TH  ST=  1 

IF  (  L'iEE'i .  OR.LPEBUG)  WRITE  (6,117) 

117  FORMAT! 2H  T,7 1 M, "TESTING  APERTURE  FI  ELDS' ,T79, IHT) 


Aperture  field  calculations  (Section  3) 


06  ~ 

C 

do4 

CALL  GLOW ( MR IM  , R IML , R I M ) 

bob 

IF  ( MR  1 M.  .LE.MDRIM)  GO  T 

800 

WRITE( 0,3000) 

d67 

WRITE  (6,122)  MR IM 

bob 

122 

FORMAT! 2H  E,H0,'MRIM  =  ' 

d6V 

WRITE( 6,3006 ) 

b7'/ 

GO  TO  272 

H7  1 

123 

CONTINUE 

872  C 

b  7o  18  ((  .KOI  .LNF)  .AND.  (LUANG)  >  WRITE  (6,126)  RR 

874  1 2o  FORMAT  (/2H  *,7'10,'**  CONSTANT  RANGE:  P  =',F10.2,'  **',779, 1H* 

87  b  C 

87o  C  ***  P2  LOOP  *** 

877  C 

878  NP2=IABS(IP2) 

87V  DO  270  MP= 1 , NP2 

880  IT  (IP2.GT.0)  P2=AP2(MP> 

881  IF  (IP2.LT. 0)  P2=AP2  ( 1  )+  (MP-  1 )  *AP2  (2  ) 

m2  KHI’lEC  6,3006) 

882  IF  (LNF)  PHI=PHIE 

88a  IT  (.NOT. LNF)  P!1I=P2 

88b  WRITE  (6,130)  PHI 

88o  130  FORM  AT  (2  H  *,Tb,5l!PHI  =  ,F0.  2  ,T79,  1H*  ) 

887  IF  (PHI .GT. 180. )  PHI  =PKI -36C>. 

888  IF  ( PHI .GT .180. .OR . PHI .LT. -180.)  WRITE  (6,131) 

88V  131  FORMAT  (2H  H ,TIH ,'***ERROR  »  INVALID  PHI  FOR  SUBROUTINE  SBOY' 

8  V  0  2 ,T79, 1  HE ) 

bVl  IF  (.NOT. LNF)  GO  TO  137 

8V2  132  P2=P2*UNITO/RLAM 

8VJ:  WRITE  (6,3006) 

8V4  IF  ( LRANG)  IP.  RITE  (6,135)  P2 

8Vb  13b  FORMAT  (2H  *,T10,'NEAR  FIELD  WITH  CONSTANT  RANGE  R  ='.F10.2, 
8V6  2T7V, 1 H* ) 

8V 7  If  (.NOT. LRANG)  WRITE  (6,136)  P2 

8V8  136  FORMAT  (2H  *,T10,/!IEAR  FIELD  OBSERVATION  PLANE  AT  Z  =' ,F  10.2, 

8W  2T7V,  IH*) 

900  137  WRITB(6, 3006) 

*0  1  IF  ( LPL'i )  WRITE  (2)  P2 

902  PHI  R=PHT  /DPR 

9 >‘3  COSP=COS (PHI  R ) 

9 H4  IF  (ABS(COSP).LT.I .D-5)  C0SP=0. 

9  ' b  SI NP=SI K ( PHI R) 

906  TH 1=180. 

907  3H2= 1 80. 

908  THEB=Pl/2. 

909  L 

91 0  C  ***  CALCULATE  SHADOW  BOUNDARIES  *** 

9  11  G 

912  CALL  SBDY (MRIM, X ,XS, PHI , TH 1 , TH2 ,THEB ) 

913  WRITE  (0,138)  TH 1 , TH2 

9l«  138  FORMAT  (2H  F,T10,'TH1  =' ,F8. 2, 5X, 'TH2  =' ,F8.2,T79, IHF) 

vlb  WRITE (6, 3006) 

916  18  (LNF. AND. .NOT. LRANG)  WRITE  (6,139) 

917  139  FORMAT  ( 2H  W ,T3 1  ,' EX' , 27 X, 'EY' ,27X , ' F/ ' , //T7 ,3HRHQ,6X 

918  2,3(bX,3HMAG,7X,2HDB,7X,bHPHASE)) 

919  I  F ( . NOT. LNF. OR .LRANG ) WRI TE  (6,1391) 

920  1391  FORM AT( 2H  U.T27, 'PRINCIPAL  POL' ,155, 'CROSS  P0L',T79 

921  2, IHW, /2H  W,T79,IHW,/2H  W ,T6 , 5HTHETA , 5X , 
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922 

o2(3X,3HMG,7X,2HnH,7X,5HPHASE)  ,T79,  IHK./2H 

*,T79, IH*) 

923 

PPT=  ( I’M  I -T  All ) /OPR 

924 

SINPT=SIN(  PP7  ) 

923 

COSPY=CGE( PP1) 

926 

I  F  ( .  NOT. LA  I  )  GO  TO  180 

92  7 

IF  (LNF)  GO  70  14b 

92  H 

C 

929 

C 

***  SET  UP  ROTATED  GRID  *** 

9o0 

(J 

90  ) 

PHIG=PH1 

9o2 

GALL  Gii’I  f)(  PHIG,  I  C,  I  MAX) 

9oo 

lr  ( IMAX. OF. 3)  GO  TO  1 42 

934 

WRI  il:(  0,3006) 

933 

WRI3L  (0,140) 

926 

1  4vj 

FORM  AT  (2  H  L-,T3,28H*  FRROR  «  IMAX  LESS  THAN 

3  * ,T79 , 1  HE ) 

937 

WRITE (6, 3006) 

93b 

GO  iO  3frO0 

93  9 

142 

IF  (PCHG)  143, I 44, i 44 

940 

143 

JC=ICO 

94  1 

JMAX=I MG 

942 

ICOP=JCC 

943 

GO  TO  143 

944 

1  44 

JC=JCO 

94  3 

JMAX=JMC 

946 

ICOP=ICC 

947 

143 

IF  ( LTHST)  WRITE  (6,146)  IC, IMAX, JC, JI MAX 

94  b 

1  46 

FORM  AT ( 2  H  D, T5 , 3 HI C= , 1 3, 5X , 5HI MA  X= , I 2 , T7  9 , 

1 HD/2H  D.T5,3HJC 

949 

2 ,3X, 6HJMAX  =, I 3, ,T79, 1  HD ) 

930 

I  4b 

IF  (LNF.ANP. (MP.GT.1 )>  GO  TO  173 

93  1 

K=0 

932 

L=0 

93o 

MG=IC+ 1 

954 

MAX= IM AX+2 

933 

MIX=MAX-I 

930 

IF  (MAX.CT.MDEA)  GO  TO  114 

Y  integration  for  far  field  (Section  4) 


I  00  I 
I  002 
I  003 
J  004 
I  003 
1060 
I  007 


C 

173  DXL=C  l-IC)*GRl)X-XMIN 
QXL=I)XL/GH!)X 
DXR=XMAX-(  IA1AX-I  C)*GRDX 
QXR=i)Xk/GRDX 

IF  (LTHST)  Vi R I TE  (6,175)  !)XL,DXR 
173  FORMAT (2H  !),T5,5Hl)XL  =, F6. 2 , 5X ,5HDXR 


=,F6.2,T79, I  HO) 
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Switching  criterion  (Section  5) 


i  0V3  0 

iOV<  0  ***  P3  LOOP  *** 

)0Vb  L 


0Vo  I 82 

OV7 

Wb 

ovv 
l  0<0 

10  1 

I  02  I  Hb 
103 

I  04  I  Ho 
10b 
100 
I  00/ 

10b  0 
I  0  V  c 
110  0 
1 1 1 
I  I  2 
I  I  j 
I  I  4 

lib  1 HH 
I  I  6 
1  I  V 
1  lb 
I  IV 
120 

12  1  I  Vv) 

122  1 V  I 

123 

1 24 
12b 
126 
127 

I2H  194 

12V 

130 

13  1 

132 

133  IVb 

134 
I  13b 

130 

137 


S=RR 

IF  (  .MOT.LN’F )  GO  70  18b 
SINPb'=SIN(PHIh/m»l{) 

0OSP1:=CGS(  PHI E/DPR  ) 

IF  ( .NOl .LRANG )  ZE=P2 
IF  (LUANG)  RE=P2 
P3=P31 

IF  (  LiF'i'i )  Lb  I  Hi  (0,186)  i  l!l:TAX,NAI 

F0UMAT(2H  I),1 1  0,  'THEiAX  ='  F7.2,5X,'NAI  =  '  ,  I  b,T7V,  1HP) 

no  2 bO  ;j=l  ,NAI 

THER=P3/I)PR 

IF  (.NO'i.LNF)  GO  70  1V6 

***  NEAL  FIELD  COORDINATE  CONVERSION  *** 

Ir  (.NOT. LRANG)  GO  TO  190 

THE=P3/l)PR 

SINTfc-SIN(THE) 

COSTF.=C(;S(  THE) 

XN ( I )=XCO( I )+RE*SI NTE*COSPE 
XN ( 2 ) = X 00 ( 2 ) +R  E*S I  NTH* SI NPE 
XN ( 3  )=XCO( 3 ) +R E*COSTE 

IF  (  XII  (  1  ) .  NE  .0 , ,  OR,  XN(  2)  .NE.O.  )  GOTO  194 
SI  N'i  F=  SI  NTE+0.00  1 
GO  10  IhH 
ZL=P3 

XN ( I )=XGO( 1 ) +ZL*COSPE 
XN (2  )=XC0(2)+ZL*SINPE 
XN ( 3  )=ZH 

IF  ( XN( I ) . MH.O . . OR, XN(2 ) .ME. 0. )  GO  TO  194 
ZL=ZL+ 0.001 
GO  TO  1VI 

PHI  R-HTAN2  ( XN ( 2 ) , XN(  D) 

SI NP=S I N (PHI R ) 

COSP=0’(U  (PHI  R) 

RR=S()RT(XN(  1  ) *XN  (  I  )  +  XN(2  )*XN(2  )  +  XN(3  )*XN(3  ) ) 

IF  (LIES'! )  HR  I  1H  (6,19b)  XN(  I  )  ,  XN(  2  )  ,X  N  (  3 ) 

FORMAT  (120, 6FI2.b ) 

0()ST=XH(3)/RR 
THER=A0(  S ( COST ) 

THETA=THF.R*DPR 
GO  TO  200 
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I  138 
!  13V 
I  Ut< 

I  14  1 
I  142 
1  143 
I  144 
I  1 48 
I  146 


1  J37 
1  338 
i  33V 
1  340 
134  1 

1342 

1343 

1344 
I  34  8 
I  346 
134  7 
1  348 
I  34V 

1380 

1381 

1382 
l  383 
1384 
1388 

1386 

1387 

1388 
I  38  V 
1360 
136  l 
1362 
I  363 
1364 
I  308 
I  360 
1  367 
1368 
136V 


1V6  THE'i  A=P3 

THER=THE1 A/DPR 

203  SI  NT=SI  N  ( THER ) 

C0ST=C0S ( THH K ) 
EDX=(0.,0. ) 

EUY=(0. ,0.  ) 

EDZ=(0. ,0.  ) 

lb  (..NiH.LNF)  GO  10  22  7 


Aperture  integration  for  near  field 
(Section  6) 


c 

0  ***  SPILLOVER  FIELDS  FOR  NEAR  FIELD  *** 

C 

X 1 =XN  C 1 )-XS(  1 ) 

X2=XN(2 )-X5(2 ) 

X3=XN(3)-XS(3) 

RHO=SORT ( X  I *X I +X2*X2 ) 

PHI PR=BTAN2( X2 ,X  1 ) 

PHI P=PHI PR*DPR 
PSI=MTAN2( RH0,-X3)*DPR 
RS=SQRT( RHO*  RHO+  X3*X3 ) 

PHHI =CEXP( -CJ*TPI*HS)*F/RS 
C A LL  FEELX  PS I , PH  I P, PSA, PUG  AM ) 

CALL  FPOL( El  X,  El  Y,  EIZ, PSA, PHGAM) 

El X=EI X*PHEI 
El  Y=EI  Y*PHEI 
EIZ=EIZ*PHEI 

IF  (LOU'I)  WRITE  (6,222)  EIX,EIY,EIZ 
222  FORM  AT (2H  0,TI8,8HEIX  =, 2E 10 .4 ,5X, 5HEI Y  =  ,2E10.4 ,5X,5HEI Z  =  , 

22 E 10.4 ,17V , I  HO ) 

C 

C  ***OUTPUT  RECTANGULAR  COMPONENTS  FOR  CONSTANT  Z  NEAR  FIELD  *★* 
C 

EDX=EDX+EI  X 
EL)Y=EDY+EI  Y 
EUZ=E1)Z+EIZ 

224  Ih  ( LRANG)  00  TO  228 

CALL  DBPHS(AF!)X,FOX,0.  ) 

CALL  I)BPHS(AE1)Y,EDY,0.  ) 

CALL  1)BPHS(AEDZ,  EDZ,  0.  ) 

IF  (LWRITE)  WRITE  (6,226)  P.1,  AEDX,  EDX,  AEDY,EDY,AEDZ,EDZ 
22o  F0RMAT(2H  W,T8,Fo. 1 1 4X  , ,  3(  El  0.  3,2F  10 .2 ) ) 

PLT=AEDZ 
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I 3/0  CO  TO  249  1 

I  J  l  |  22’/  FD'MCOS'i*  ( COSP*EDX+S  I N P* HDY ) -S I NT*El>7 

I 37  2  EDP=-SINP*EDX+COSP*EDY 

1  37 3  GO  TO  242 


X-integration  for  far  field  (Section  7) 


1  43  i>  C 

M3o  C  ***  SPILLOVER  FIELDS  FOR  FAR  FIELD  *** 

I  43  7  C 

1438  PHI  P=PIII 

MEv  PSI =180. -THETA 

1440  PSIR=P31/L)PR 

144  1  SINS=SIN(  PSI  R) 

1442  CO  SS=COS ( P  S I R ) 

1443  CALL  FEED(  PSI ,  PHI  P ,  PSA, PHGAM ) 

1444  CALL  FPCL(  El  X,  El  Y,  El  Z,  PSA,  PHGAM) 

1 44b  EIT=-COSS*COSP*EIX-COSS*SINP*EIY-SINS*EIZ 

1440  EIP=-SINP*EIX+COSP*EIY 

I  44*/  PHEI=CEXP(CJ*TPI *Z ONCOST )*F*RFCT 

144b  EIT=EIT*PHL:I 

I  44  9  El  P=EI  P*PHEI 

I4bu  EDT=EDT+EIT 

I  4b  I  EDP=EDP+EI P 

I  4b2  C 

Mb3  C  ***  PRINCIPAL  AND  CROSS  POLARIZED  COMPONENTS  FOR  FAR  FIELD  *★* 
I 4b4  C  AND  CONSTANT  RANGE  NEAR  FIELD 

14bb  C 

I 4bo  242  IF  ( LIE £7 )  KRITE  (6,243)  ACOSP.COSP, SIMP, EDI, EDP 
I  4b  7  243  FORMAT  ( *1 1  0 , 5F  1 2 . 4 ,  /T 1 0 ,  '  EDT  =' , 2F 12 .b ,5X, 'EDP  =',2F12.5,/> 

I 4b8  TMT=EDT 

14bV  EDT=COSPT*HDT-SINPT*EDP 

I  400  EDP=Sl  NPT*TMT+COSPT*£DP 

Uol  IF  (.NOT.LCP)  GO  TQ  24b 

1462  TMT=EDT 

I  403  EDT=TEM2*(  EDT-CJ*EI)P  ) 

1  404  EUP=TEM2*(  T.MT+CJ*EI)P ) 

Mob  24b  CALL  DBPHS (AEDT, El)T, REF) 

1400  CALL  D13PHS(AEDP,  EDP,REF) 

1407  IF  (LTESl)  fcRITH  (6,I9b)  PHI ,TAU,COSPT,SINPT 

1408  IF (LWRIT E) WRITE  (6,248)  P3 , A EOT, EDT, AEDP,EOP 

I 4o V  248  FORM AT (2H  W,Tb,F6. 1 ,4X, ,2( El «. 3,2F1«.2 ) ,T79, 1HW) 

1470  PLT=REAL(EDT) 

1471  24V  CONTINUE 
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1472 
U73 
I  47  4 

1 475 

1476 
14  77 
1478 
I  47  V 
1480 
148  1 

1482 

1483 
I  484 

1485 

1486 

1487 

1488 
148V 
I4V0 
14V  I 
14V2 
I4V3 


IF  ( LPLT )  WRITE  (2)  PLT 
P3=P3+l)P3 
250  CONTINUE 

NGTD=NT-NAI 

IF  (NGTD.LE.0)  GO  TO  270 
THI2=NAI*DP3+P3I 
25 5  CONTINUE 

IF  (LTEST)  WRITE  (6,260)  NT, NAI , NGTD,THI 2 
200  FORMAT! 2H  D, II 0,31 I0,3F1 0.3.T79, 1HD) 

IF(.NOT.LGTD)GO  TO  270 
I F ( LTE ST . OR . LUEB UG ) NTE ST =2 
C  CALL  GTD(THI2,NGTD,NAI,DP3) 

270  CONTINUE 

GO  TO  3000 
272  WRITE  (6,27b ) 

275  FORM AT (2H  E,T8,'**  ERROR  *  DECLARED  DIMENSION  EXCEEDED' ,T79, 
l(IE) 

GO  TO  3000 
285  WRITE  (6,290) 

2V0  FORMAT! 2H  E, Tl 0, '***ERROR  *  INPUT  PHIN(I)  OR  PHIN(NPHI)  ' 

2^ INCORRECT  ***',T79, 1HE) 

GO  TO  3000 
END 
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SECTION  1 .  RELATIVE  POWER  RADIATED  BY  FEED 
PURPOSE 

To  calculate  the  relative  power  radiated  by  feed  using  the  Input 
feed  pattern  data 

METHOD 

The  relative  radiated  power  from  the  feed  Is  given  by 

f 2*  fit 

prad  3  gz(i>,$)s1m|»di»d$ 

J0  J0 

where 


9<*,*) '  ^  9p('l')  *  ^  9oU) 

Is  obtained  by  linearly  Interpolating  the  Input  feed  pattern  gp  and  gQ 
In  the  two  planes  +p  and  +g  adjacent  to  w 

Since  the  feed  pattern  g(*,*)  Is  piecewise  linear  between  two 
input  PHI  planes,  the  integration  over  *  reduces  to  a  sum  of  integrals 
as 

NM  ftp  rH  _ 

SPHI  =  I  r (*»♦ )sin*d*d* 

1  J ♦q  ' 0 

where 


NM  =  NPHI  if  IB=0  (no  symnetry) 

NM  =  NPHI  -  1  if  IB^O  (with  symmetry) 


and  <pn  and  represent  the  upper  and  lower  bound  for  each  subregion. 
NPHI  is  the  number  of  Input  feed  cuts  and  IB  is  the  absolute  value  of 
the  symmetry  Index. 


The  Integration  over  *  can  be  carried  out  analytically  which  gives 


where 


NH 

SPHI  »  l 
1 


y*u 


SPSI 


SPSI  =  (gp+9Q+gp9Q ) s  i  n^dip 

which  is  carried  out  numerically  by  using  the  trapezoidal  rule. 
Then  the  relative  radiated  power  is  given  by 


^rad  = 


SPHI 

2SPHI 

4SPHI 


IB*0 

IB=2  or  3 
IB=1 


The  relative  power  radiated  is  used  for  the  purpose  of  calculating  the 
far  field  results  in  antenna  gain  when  the  range  factor  e^kR/R  is  sup¬ 
pressed.  This  is  done  through  the  variable  REFDB  as  given  by 

REFDB  =  10  log 

F  Ppad 

which  is  calculated  later  in  the  main  program  and  used  as  input  to  the 
subroutine  DBPHS. 


KEY  VARIABLES 


DELI 

Angular  Increments  for  numerical  Integration 
over 

6FP 

(9p(*)) 

Calculated  feed  value  in  the  plane  $p  at  angle 

GFQ 

(§q(*)) 

Calculated  feed  value  in  the  plane  <pq  at  angle  ip 

IB 

Absolute  value  of  the  synmetry  index  (see  User's 
Manual ) 

NM 

Number  of  integration  regions  over  4> 

NPHI 

Number  of  input  feed  cuts 

PHIP 

($p) 

Upper  input  PHI  cut  adjacent  to  4 

PHIQ 

Uq) 

Lower  input  PHI  cut  adjacent  to  $ 

PRAD 

(Prad^ 

Power  radiated  from  feed 

PSI 

(*) 

Theta  coordinate  angle  of  the  observation  direction 
referred  to  the  feed  axis 

SPHI 

Sum  of  numerical  integration  over  <t> 

SPSI 

Sum  of  numerical  integration  over  * 
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CODE  LISTING 


64b 

C 

049 

C 

**★  CALCULATE  POWER  RADIATED  BY  FEED 

ob0 

C 

6b  1 

80 

IN= 1 8 1 

ob2 

DELI =PI/ ( I N- 1 ) 

ob3 

SPHI  =0. 

6b  4 

IF  ( IB.EO.fl)  NM-K'PHI 

obb 

IF  (IB.NE.0)  NM=NPHI “1 

obo 

I F ( LTE  ST .0R.LDEBUG)NTEST=1 

Ob7 

DO  94  NG=I ,  NM 

6b  8 

NP=NG+ 1 

Ob  9 

IF  (NP.CT.NPHI)  NP=  1 

060 

PHIQ=PHI N( NQ )+0. 00 1 

66  1 

PHI P=PHI  N  ( NP  )-0. 00 1 

662 

PSI R=0. 

663 

SPSI  =0. 

004 

DO  92  1=1, IN 

66b 

IF (I .EO.4)NTEST=0 

066 

PSI=PSIR*DPR 

667 

CALL  FEED( PSI , PH IQ, PSA .PHGAM ) 

008 

GFQ=GF 

669 

CALL  FEED (PS I, PH IP, PS A, PHGAM) 

670 

GFP=GF 

07  1 

FI =GFO*GFQ+GFP*GFP+GFQ*GFP 

o72 

IF  (I.EO.I .OR.I.EQ.IN)  FI=FI/2. 

073 

SPSI =SPSI+FI *DELI*SI N( PSIR ) 

67  4 

PS  I R =PS  I R+  DEL  I 

o7b 

IF(NTEST.E(). 1 ) NRITE(6,90 )PSIR,SPSI 

o7o 

90 

F0RMATC2H  *,TT 2  , 'PSI  R='  ,F7 .2  ,bX,  'SPSI=' ,  FI  0. 3,  T79,  1H*) 

677 

92 

CONTINUE 

o78 

NTEST=0 

679 

DPHI=( PHI P-PHI Q)/DPR 

680 

IF  (DPh’I.LT.0.  )  DPHI  =DPHI+TP I 

68  1 

SPHI=SPHI+SPSI*DPHI/3. 

082 

94 

CONTINUE 

683 

PRAD=SPHI 

084 

IF  ( IB. HO. 2. OR. I B. E0.3)  PR  AD=2.*PR  AD 

68  b 

IF  (IB. EO. 1)  PRAD=4.*PRAD 

080 

WHITE  (0,9b)  PRAD 

087 

9b 

FORMAT (2H  *,TI  0, 6IIPRAD  =,E  10.3  ,  ,T79,  1H*) 

088 

PSIT=TEMP 
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SECTION  2.  RIM  POINT  CALCULATION  FOR  CIRCULAR  APERTURE 
PURPOSE 

To  calculate  the  rim  point  coordinates  of  a  circular  aperture. 

METHOD 


For  circular  reflectors,  the  rim  points  are  not  input  as  they  are 
for  noncircular  rim  shapes.  Instead,  the  diameter  of  the  aperture  (D) 
and  the  y-coordinate  of  aperture  center  (Yc)  are  input. 

The  coordinates  of  the  rim  points  of  a  circular  aperture  are  then 
calculated  as  follows: 

First  an  approximate  value  of  the  number  of  rim  points  is 
estimated  by 


nrim(APP)  =  Int(»D/RIML) 

where 


Int(X)  means  the  integer  value  of  X, 

D  is  the  diameter  of  the  aperture,  and 

RIML  is  the  reference  length  of  each  rim  segment. 

Then  the  actual  value  of  NRIM  is  obtained  by  adjusting  the  estimated 
value  such  that  NRIM  is  a  multiple  of  4  and  is  given  by 

))  . 

This  adjustment  is  done  for  the  purpose  of  having  symmetrical  rim 
segments . 

To  maintain  approximately  the  same  aperture  area  as  the  original  aper¬ 
ture,  the  polar  distance  of  each  rim  point  is  determined  by  taking  the 
average  polar  distance  to  the  corners  of  an  inscribed  regular  polygon 
and  a  circumscribed  regular  polygon  to  the  original  circle,  thus  the 
polar  distance 


where  a  is  the  radius  of  the  circular  aperture  and 
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2  Tl 

**  =  NRIM 

The  rim  points  are  then  calculated  by 

XRIM  =  M  cos*en 
YRIH  s  AA  sin*en  +  YC 

where 

<>en  =  ^n  -  ^  ^a<j>  n*l,2,3»**  *»NRIM 

and  is  the  y~coordinate  of  the  aperture  center. 
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KEY  VARIABLES 


A 

(a) 

Radius  of  the  circular  aperture 

AA 

Polar  distance  of  each  rim  point 

D 

(D) 

Diameter  of  the  circular  aperture 

OELP 

(a*) 

Sector  angle  associated  with  each  rim  segment 

NRIM 

Number  of  rim  segments 

PHE 

(W 

Polar  angle  of  a  rim  point 

RIML 

'  Reference  rim  segment  length 

RIMS 

X  and  Y  coordinates  of  rim  point  ME 

YCM 

w 

Y-coordinate  of  the  center  of  aperture 

CODE  LISTING 


716  C 

717  C  ***  CIRCULAR  RIM  SUCTION  *** 

718  C 

71V  NHIM**PI*D/R1  ML 

72  0  NR  I  M=4*  (  ( N  R I M+  2  )  /4  ) 

72  I  IFfNRIM.LT.  16)NRI/4=I  6 

722  IF  !  NRIfc.GT.  Ml>RI  .'■' )  NRIM=M!)RIM 

723  WRITE  (F,lt)0)  NRIM 

724  100  FORMAT! 2H  *tT 1 0, 'NUMBER  OF  RIM  SEGMENTS*', 13,179, 1 H* ) 

72b  WRITE (6, 3000) 

726  RI ML=- I . 

727  DELP=2.*PI/NRIM 

728  PHE*U.5*[)ELP 

72V  CM!  USE  THE  AVERAGE  RADIUS  TO  COMPUTE  RIM  POINTS  FOR  CIRCULAR  REF 

L. 

720  AA=0.5*A*( l.+l ./COS(PHE) ) 

721  DO  102  NE= 1 , NRIM 

732  RIMS(NF,  1 )  =AA*COS(  P1!E) 

723  R I  MS  ( NE ,  2  )  *AA*SI  N  (  PHE)  +YC.M 

734  PHE=PHE+L'ELP 

73b  102  CONTINUE 

7j6  WRITE! 6, 3006) 

727  IF  (D.GT.0.)  WRITE  !6, 103)  D,YC 

728  103  FORM AT! 2H  *,T1 0, 'APERTURE  DIAMETER  =',FV.2,'  WAVELENGTHS ',T7V 

73 V  *  2  I H*,/2H  ★,T7V, IM*,/2H  *, Tl 0, 'APERTURE  CENTER  AT  !0.,',F7.2,' 

/40  j/’i  yy ,  in* ) 
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SECTION  3.  APERTURE  FIELDS 
PURPOSE 

To  calculate  and  store  the  aperture  fields  on  the  principal 
rectangular  grid. 


Figure  1.  Coordinate  system  for  the  aperture  field. 


METHOD 


The  coordinate  information  for  the  aperture  field  is  defined  by 
the  point  of  reflection  on  the  reflector  surface  with  coordinates  X,Y 
as  shown  in  Fig.  1.  Thus 

,  Y 

<j>  =  tan  1  j 


P  =  jx2+ Y2 


R'  =  JPZ  +  Z’2 


and 

[p  =  tan"*  jt 

Let  the  vector  incident  feed  pattern  in  the  direction  (ip »<(> )  be  of  the 
form  as 

f1  =  e  f6  +  ♦'  f* 

where  fQ  and  f.  are  the  feed  pattern  values  calculated  in  subroutines 
FEED  and  FPOL.  The  reflected  field  pattern  from  the  parabolic  surface 
is  given  by 

fr-Zfe-*'  % 

Its  corresponding  rectangular  components  can  be  expressed  as 
f£  =  cos<j>'fe  +  siniji'f^ 
fy  =  sin*'fe  -  C0S*'f# 

The  aperture  plane  is  defined  as  the  plane  perpendicular  to  the  Z-axis 
and  passing  through  the  rim  point  Po(Xo>YQ,0)  with  the  greatest  distance 


QJ  X> 


from  the  Z-axis.  The  aperture  field  at  the  point  P(X,Y,0)  on  the 
perture  plane  is  given  by 


5 


-jkR 

e _ 

R' 


and 


-jkR0 

e _ 

R' 


where  F  is  the  focal  distance. 


For  any  grid  point  the  X  and  Y  components,  Ej  and  Efc  of 

the  aperture  field  are  calculated  by  the  above  two  equations.  By  loop¬ 
ing  through  all  the  horizontal  and  vertical  qrid  lines,  a  two  dimen¬ 
sional  array  of  the  aperture  fields  is  set  and  stored. 
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M 


and  EA(2,M,N) 


KEY  VARIABLES 

EA(l.M.N) 

LlI 

X  component  of  the  aperture  field  at  grid  point 
(XM.YN) 

EA(2,M,N) 

LU 

Y  component  of  the  aperture  field  at  grid  point 
(XM.YN) 

EIP 

<v 

PHI  component  of  feed  pattern 

EIT 

(fe) 

THETA  component  of  feed  pattern 

EIX 

X  component  of  feed  pattern 

EIY 

Y  component  of  feed  pattern 

EIZ 

Z  component  of  feed  pattern 

ERX 

X  component  of  the  reflected  field  pattern 

ERY 

(fp 

Y  component  of  the  reflected  field  pattern 

M 

Index  of  vertical  grid  line 

N 

Index  of  horizontal  grid  line 

MAXO 

-jkR 

Maximum  number  of  horizontal  and  Vertical  grid 
line 

PHSEA 

(e  °) 

Phase  factor  of  the  aperture  field 

PH  IP 

(♦*) 

PHI  coordinate  of  grid  point  (XM.YN) 

PSI 

(♦) 

THETA  coordinate  of  grid  point  (XM.YN)  measured 
from  the  negative  Z-axis 

RP 

(R’) 

The  distance  from  the  focal  point  to  the 
reflection  point 

XX 

(X) 

X-coordlnate  of  the  reflection  point 

YY 

(Y) 

Y-coordlnate  of  the  reflection  point 

ZP 

(Z1) 

The  projected  distance  of  RP  on  the  Z-axis 
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CODE  LISTING 


822  c 

022  C  ***  CALCULATE  APERTURE  FIELDS  *** 

02  A  C 

b2b  DO  120  M= 1  ,M/XO 

82o  I  =M-  I 

82*/  XX  =  (  I-ICO)*GRDX 

828  IF  (LNF.ANP. (M.EO. I ))  XX=XMIN 

82V  IF  ( LNF.AND. (M.EO. (MAX+I  ) ) )  XX=XMAX 

830  DO  120  K=l ,MAXO 

83)  J=N- 1 

832  YY=( J-JCO) *GRDY 

83o  PHI PR=8T AN2 ( Y Y, XX) 

834  PHI P=PHI PR*DPR 

838  RHO=SORT(XX*>X+YY*YY) 

836  H0S0=RH0*RI!0 

837  ZP=F-R0£0/(4.*F) 

838  H  P=50RT ( R0S0+ZP**2 ) 

83V  PSIN=BTAN2 (RHO,ZP) 

840  PSI =PSI R*DPR 

8<.l  CALL  FEHD(PSI  ,PHIP,PSA,PHGAM) 

842  CALL  FPOL(  El  X, El  Y, El Z, PSA,  PHOAM ) 

843  SINPP=SIN( PHIPR) 

844  COSPP=COS( PHIPR) 

84b  SI NS=SIN ( PSI R) 

846  COSS=COS(PSIR) 

847  El  T=-COSS*COSPP*EI  X-COSS*SI!!PP*EI  Y-5  IPS*EI Z 

848  EIP=-SINPP*EIX+COSPP*EIY 

84V  NTEST=0 

8b0  ERX=COSPP*EIT+SINPP*EIP 

8b  I  ERY=SI NPP*EI  T-COSPP*EI  P 

8b2  EA( I ,M,N )=F*HRX/RP*PHSEA 

8b3  EAI=EA( 1,M,N) 

8b4  CALL  DBPHSIAEl ,EAI ,0.) 

8bb  EA (2 , Mf N ) =F*ERY/RP*PHSEA 

8bO  EA2=EA(2,M,N) 

8b 7  CALL  DBPHS(AE2  ,EA2,0.) 

8b8  IF  (  .NOT.LDEBUO)  GOTO  1 20 

8bV  IF  ( M.LE.MNO.AND.N. LE.  WO)  '.’.'RITE  (6,118)  <M,N,EA I  ,EA2 

860  118  F0RMATC2H  D,T1 5, 21 5 ,^F 10 .2 ,T79, I  HD) 

861  120  CONTINUE 
802  121  CONTINUE 
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SECTION  4.  Y-INTEGRATION  FOR  FAR  FIELD 


PURPOSE 


To  nunerically  integrate  the  aperture  fields  along  the 
rotated  t-grid  lines. 


Figure  1.  Geometry  of  y-integration  for 
far  field. 


METHOD 


The  y-integration  along  the  rotated  grid  line  (M)  as  shown  in 
Fig.  1  is  represented  by 


W")  -  fUR  Ea  dy 

Vr 


0) 


where  yLR  and  yUR  correspond  to  the  intersections  of  the  grid  line  (M) 
with  the  lower  and  upper  rims,  respectively,  as  shown  in  Fig.  1  and  E® 
is  the  aperture  field  distribution  along  the  grid  line. 

To  determine  these  intersection  points,  the  x-coordinate  of  the 
grid  line  (M)  is  compared  with  those  of  the  rim  points  until  a  rim 
segment  is  found  such  that  the  x-coordinate  of  the  grid  line  (M)  is  in 
between  those  of  the  two  rim  points  of  that  segment.  Then  y^  or  yUR 
is  obtained  by  solving  for  the  Intersection  point  of  the  rim  segment 
and  the  grid  line  (M). 


Y 


Figure  2.  Geometry  for  interpolation  of  aperture  field. 
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In  order  to  carry  out  the  y-integration  In  Equation  (1)  the  aperture 
field  Ea  is  calculated  by  interpolation  from  its  stored  values  corre¬ 
sponding  to  points  on  the  principal  rectangular  grid.  The  geometry  for 
interpolation  is  shown  in  Fig.  2  where  the  rotated  grid  line  I=M-1  inter¬ 
sects  the  horizontal  grid  line  N*J+1  at  the  point  with  principal  grid 
coordinates  (X0,YQ).  The  principal  grid  coordinates  are  related  to  the 
rotated  grid  coordinates  by 


Yo  s  (J-Jc)dy  cos* 


(2) 


and 


Xo  *  x  ‘  Yo  tan* 


(3) 


where 


x  =  (I-Ic)dx 


The  principal  grid  coordinates  are  then  used  to  determine  the 
integer  value  for  the  nearest  principal  vertical  grid  line  to  the 
left  of  the  point  (Xq.Yq)  with  aperture  field  E(J)  as  shown  in  Fig.  2. 
Thus,  interpolation  yields  the  aperture  field  at  the  point  on  the  rotated 
grid  as 

E(J)  =  (j  -r)  Ea<Mx’")  +r  E*(VM)  (4) 

where  ax  is  the  displacement  of  the  aperture  field  point  from  the 
vertical  grid  line  (Mx). 

Let  Jl  and  Jn  represents  the  Indices  of  the  lower  and  upper  grid 
lines  closest  to  the  intersection  y^D  and  yyR  inside  the  aperture 
respectively.  If  Jy-J|_<l •  Equation  0)  is  approximated  by 


ysuh^w)  ■  (yuR_yLR)E{Ju)  *  (s) 

If  Jy— 0^>1 ,  the  y-integration  is  divided  into  three  parts  as  shown  in 
Fig.  3.  Using  the  subaperture  method,  the  middle  part  Y^  is  given  by 

Jy-1 

YSM  *  l  E(J)  (6) 

Jl+1 
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The 

from 


lower  part  of  the  y-integration  consists  of  the  contribution  y$l 
i  yLB  to  the  (Ji+1)  grid  line  and  the  upper  part  consists  of  the 


Trom  y.  R  to  tne  v>JrM )  9na  ,ine  ana  ine  upper  pa 
contribution  Ysu  from  the  (Jy-1)  grid  line  to  yUR 


The  contributions  Y^n  from  the  upper  part  is  given  in  terms  of 
the  aperture  field  values  f^.  =  E(Jy)  and  f^y  *  E(y*yyg)  as  shown  in 
Fig.  3.  The  edge  value  fr=Tcn  is  calculated  by  linear  extrapolation 
from 


fE  ’  'l  ♦  <Vf<>  ft 


(7) 


The  contribution  Ycy  from  the  lower  part  is  obtained  in  a  similar  way. 
Thus  both  contributions  can  be  represented  by 


Ysdy  =  L  dy  fj  +  ^  ay  f  ]  +  \  ay  f E 


(8) 


Substituting  Equation  (7)  into  Equation  (8)  and  simplifying  terms  yields 

i2  2 


,  =  1 

fSL  2 


U  *  w)  e<jl)  -($)  E(V') 


(9) 


and 


1 


1  + 


^  £<Ju)  -(^)2 


'SU  '  2 

Thus  the  y-integration  of  Equation  (1)  can  be  calculated  from 


00) 


ySUm(")  =  (YSL+YSM+YSy)dy 


(ID 


In  general,  the  aprture  field  can  be  decomposed  into  x  and  y  components. 
Thus  two  y-integration  sums  YSUM(1,M)  and  YSUM(2,M)  are  obtained  by 
carrying  the  y-integration  for  each  component  respectively,  i.e., 

WMfl  *  fyuR  EJ  *  (i2) 

^LR 


and 


ysum<2*m>  =  ruR  E!  *y 

J*LR  y 


(13) 


DIAGRAM 


1 


i 


60 


KEY  VARIABLES 

DYL 

(AYL) 

The  distance  from  the  horizontal  grid  line  JL 
to  the  lower  rim  along  the  rotated  grid  line  M 

DYU 

l^u) 

The  distance  from  the  horizontal  grid  line  JU 
to  the  upper  rim  along  the  rotated  grid  line  M 

E(1,J) 

X  component  of  the  interpolated  aperture  field 
on  the  rotated  grid 

E(2,J) 

Y  component  of  the  interpolated  aperture  field 
on  the  rotated  grid 

EA(1 ,M,N) 

(EJ) 

X  component  of  the  aperture  field  at  grid  point 
( XM.YN) 

EA(2,M,N) 

(Ey) 

Y  component  of  the  aperture  field  at  grid  point 
(XM.YN) 

GRDX 

<«x> 

Grid  size  along  the  X-axis 

GRDY 

(dy) 

Grid  size  along  the  rotated  Y-axis 

GRIDY 

(Dx) 

Grid  size  along  the  principal  Y-axis 

IC 

Vertical  grid  line  index  of  the  origin  of  the 
reflector  coordinate  system 

JC 

Horizontal  grid  line  index  of  the  origin  of  the 
reflector  coordinate  system 

JLO 

(JL) 

Index  for  the  horizontal  grid  line  inside  the 
projected  aperture  closest  to  the  lower  inter¬ 
section  point  on  the  grid  line  M 

JUO 

(Ju> 

Index  for  the  horizontal  grid  line  inside  the 
projected  aperture  closest  to  the  upper  inter¬ 
section  point  on  the  grid  line  M 

MAX 

Maximum  number  of  rotated  grid  lines 

MX 

Index  of  vertical  principal  grid  line 

QDX 

Normalized  distance  from  the  integration  point 
to  the  vertical  grid  line  M 

QYL 


Normalized  distance  from  the  lower  rim  to  the 
grid  line  JL 


QYU 

Normalized  distance  from  the  upper  rim  to  the 
grid  line  JU 

X 

o 

X 

X-coordinate  of  the  integration  point  in  the 
principal  grid  system 

XX  (X) 

X-coordinate  of  the  integration  point  in  the 
rotated  gird  system 

YLR  (yLR) 

Y-coordinate  of  the  intersection  of  the  grid 
line  M  and  the  lower  rim 

-< 

o 

-< 

o 

Y-coordinate  of  the  integration  point  in  the 
principal  grid  system 

YSLX 

X-component  of  the  lower  sum  of  the  Y-inte- 
gration 

YSLY 

Y-component  of  the  lower  sum  of  the  Y-inte- 
gration 

YSMX 

X-component  of  the  middle  sum  of  the  Y-inte- 
gration 

YSMY 

Y-component  of  the  middle  sum  of  the  Y-inte- 
gration 

YSUX 

X-component  of  the  upper  sum  of  the  Y-inte- 
gration 

YSUY 

Y-component  of  the  upper  sum  of  the  Y-inte- 
g rati on 

YSUM(l.M) 

X-component  of  the  total  sum  of  the  Y-inte- 
gration  for  grid  line  M 

YSUM(2,M) 

Y-component  of  the  total  sum  of  the  Y-inte- 
gration  for  grid  line  M 

yur  (yUR) 

Y-coordinate  of  the  intersection  of  the  grid 
line  M  and  the  upper  rim 

CODE  LISTING 


V57 

ybrt 

yt>v 

yet) 

ye  l 

vo  2 

yo3 

yc< 

yob 

yco 

yo7 

y6b 

y<>y 

y  7 15 

y7  I 

y/2 

V7o 

y7  4 

y7  5 

y76 

y7  7 

97  b 

y7v 

ybo 

yb  I 

yb2 

yb- 
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c 

t  ***  Y  INTEGRATION  HOW  HAH  FIELD  *** 

C 

DO  172  M= I , MAX 
I=M-  I 

XX=( 1-IC)*GRDX 
If  (M.HO.I)  XX=XMI ') 

IH  (M. HO. MAX)  XX=XM AX 
IH  (M.EG.  I  )  GO  TO  1 50 
IF  (  XX. LH.  XI. XP)  GO  TO  15  2 
IbO  K=N+ 1 

IF  (K.UL.NLRIM)  (50  TO  153 
XLK=CLR1  M(  K,  1  ) 

XLKP=CLWIM(K+1  ,  I  ) 

IF  (XX.CT.XLKP)  GO  TO  150 
YLK=CLRI M( K , 2 ) 

YLKP=CLk I M  ( K+ 1  ,2  ) 

If  (  LDEbUG )  WRITE  (6,152)  K,  XLK,  XLKP,YLK,YLKP 
152  F0HMAK2H  D,T5,3HK  =  ,  12, 5X,5I!XLK  =  ,F6.  2 . 5X  ,6HXLKP  =,F6.2, 
25X.5HYLK  = ,F6. 2 , 5X ,6HYLK P  =, F6.2 ,T79, I  HD ) 

TtM P= ( YLKP-YLK ) / ( XLK  P- XL  K ) 

1 5  3  YLR ( M ) =7 LK  +T KM P* ( X  X- XLK ) 

JL  ( M  )  =  ( YLR  ( M  )/GRDY )+ JC+O .  yo 
If  (M.LO. 1 )  GO  TO  154 
If  ( XX.LE. XUKP)  GO  TO  15b 
154  L=L+I 

IH  (L.Gh.NL'HL")  GO  TO  158 
XUK=CIJkIML,  1  ) 

XUKP=CURIM(L+1 , I  ) 

IH  (XX.GT.XUKP)  GO  TO  154 
YUK=CiJRI//(L,2) 

YUKP=CIJRIM(L+I ,2) 

IF  ( LDEbUG )  WRITE  (6  '  '  L, XUK, XUKP ,YUK, YMKP 

156  FORMAT C2H  D,'lb,3HL  ,5HXUK  =,F6.2,5X,6HXUKP  =,F6.2, 

25X , 5HYUK  =  ,Fb.2,  5X,o..  Fo  .2  ,T79 ,  I  HD > 

TENP=(  YUKP-YUK  )/  ( XUKP-XU-. 

I  5b  YU  R  ( M )  =  Y  UK  +T  EN  P*  ( X X- XUK ) 

JU  (M  )=  ( YtlR  (,V.  J/GRDY  )+JC+{’  .0  1 
IF  (  JU(E  ).  LI  .JL<  M) )  JUC1  )=JLCO 

IF  (LUHtlXJ)  WRITE  (6,160)  JL(M  ) ,  J'J  (It  ),  YLR(  M ) ,  YUR  ( M) 

160  FORMAT  ( 2H  D,T1  2 ,  'JL=' ,  12  ,  '  JIN',  12,'  YLR=',F8.2,'  YUR=',rH.2, 
H79,  HID) 

i:yl*(JL(M)-jo*ghdy-ylr(M) 

OYL  ( M )  =1 )  YL/GHI )  Y 

DYU=YUH(  t' )  -(  JU  ( M  )- JC  )*GI>DY 

OYU(  M)  =DYU/GH1)Y 

If  (LDEKJG)  WHITE  (6,V0y)  JL(M) ,  JU(M  ),  DYI.,DYU,  YLH(  M) 

2 , YUK (M ) ,OYL( M> ,OYU(M) 
yoy  FORMAT  (21 5, PH  10.4) 


G4 


006  IF  (  (M.HQ.  I.OR.M.EQ.MAX)  .0??.LNr)  GOTO  172 

007  GDY=GKDY*ACOSR 

WOH  JLO=JLU) 

at*  juo=ju  (  m  ) 

01 0  DO  I ob  J=JLG,JUO 

on  IF  (NCK.NF.I)  GO  TO  162 

012  E(  I , J )  =  ( O. ,0  . ) 

OK  E(2,J>=( I.  ,0.) 

014  GO  10  1 6b 

O  l  b  162  Y0=(  J-JC)*GI)\ 

01  O  XX=(  I  — 1<;  )*OUUX 

017  X0=  X  X- YO*T AN  I  > 

01b  F I  X-  XO/GRf)  X+ ICOP 

OK  I X  =F  I X 

020  MX=I X+ 1 

021  QDX=FI X-I X 

022  N=J+ 1 

02^  E'(  I ,  J  )=EA(  I ,  ?.‘X,N  )*(  1  .-Q0X)+EA(  1  ,MX+1  ,M)*ODX 

024  E(2,  J)»HA(2,.VX,N  )*(  1  .-QI)X)+EA(2,MX+1  t!l)*0!)X 

02b  IF  (LUHbUfJ)  WRITE'  (6,164)  J , E( 1 , J ) ,E(2 , J ) , ODX 

02c  164  F0HMAT(2H  D, I  I  0, 5F 12 .4,179, l HD) 

027  16b  CONTINUE 

02 h  IF  (JUO-JLO.GT. 1 )  GOTO  16H 

02V  YSUM(  1  ,Ji/)  =  (YUR<M)-YLR(M))*E(  l,JU0) 

030  YSUM(2  ,  M  =  (  YUR  (M  )-YLR(  M )  )*E(  2,  JUO) 

03  1  IF  (I.WYSUM)  WRITE  (6,166)  M ,  YSUM  (I  ,  M ) ,  YS1IM  ( 2 ,  M ) 

022  loo  F0RMA1  (2H  0,1 5, HE l 0.3) 
k>33  GO  TO  172 

034  ion  CONTINUE 
02  b  C 

036  C  ***  CALCULATE  YSM  *** 

037  C 

03 H  JF=JU0- I 

03V  J I =JLO+ 1 

040  KM=JF-J1 + 1 

04  1  YSMX  =  ( 0. ,  0 .  ) 

042  YSMY=( 0. ,0. ) 

043  1)0  170  KJ  =  1 ,  KM 

044  J=KJ+JI-1 

04b  YSMX=YSDX+E( 1 ,J) 

046  YSMY=YSXY+E( 2 , J ) 

047  170  CONTINUE 

04  b  C 

04  V  C  ***  CALCULATE  YSL  AMD  YSU  *** 

ObO  C 

Obi  YSLX=(E(  I,  JLO)*(OYL( /•■)♦!  .)**2-E(  1 ,  JLC*  1  )*OYL(M )**?.  )/2 

Ob2  Y SLY  =  ( E  ( 2  ,  Jl.O )  *  ( OYL  ( M )  + 1  . ) **2-F( 2, JLO+  I  >*0YL(M>**2  )/2 

Ob 3  YSUX  =  ( E(  I , JUO) *(  OYU( M)  +  1  . )**2-E(  I ,  JUO-  I  )*OYU(M  )**2  )/?. 

Ob 4  YSUY=(H(2,  JU0)*(0Y1J(M)  +  1  . ) **2-F( 2,  JUO-  1 ) *QYU ( ,V ) **2  )/2 

Obb  YSUM  (  I  ,M  )=  ( YSI.X+YSMX+YSUX)  *GRI)Y 

ObO  YSUM (2 ,M )= ( YSLY+YSMY+YSUY) *GRDY 

Ob 7  IF  ( LWYSUM )  WRITE  (6,166)  M , Y5LX ,  YSMX, YSUX , YSUM( 1 , M ) 

ObH  IF  (LWYSUM)  WflTF  (6,166)  M, YSLY ,YSM Y, YSUY ,  YStiM ( 2,  M ) 

ObV  172  CONTINUE 
060  C 
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SECTION  5.  SWITCHING  CRITERION  FOR  AI  AND  GTD 


PURPOSE 

To  calculate  the  switching  criterion  between  AI  and  GTD  in  the 
near  field  or  far  field  computation. 


Figure  1.  Geometry  for  switching  criterion 
between  AI  and  GTD. 


METHOD 


The  angle  criterion  which  is  used  for  the  near  field  as  well  as 
the  far  field,  is  defined  as 


where  Aw  is  the  aperture  width  in  the  specific  pattern  cut.  Thus  AI  is 
used  when  0<e<ex  and  GTD  is  used  when  o>ex. 

The  range  criterion  is  used  solely  for  the  near  field  and  is 
defined  by 


7  =  _  AW 

*  2tanex 

as  shown  in  Fig.  1 .  ■ 

The  usage  of  the  above  criteria  for  near  field  computation  is 
summarized  in  the  flow  diagram  as  shown  below. 


1  HEAR  FIELD] 


(6T0  ONLY) 


RANGE  (OR  Z)>Z«? 


(AI  +  GTD) 


KEY  VARIABLES 


AW 

P3X 

<\> 

Aperture  width  in  the  specific  pattern  cut 

Variable  representing  the  switching  criterion 

THETAX 

<°x> 

Angle  criterion  in  degrees 

THEX 

(»x> 

Angle  criterion  in  radians 

ZX 

<ZX) 

Range  criterion 

CODE 


1008 
106V 
1  0'/  0 
1 07  I 

1072 

1073 
107  4 
107b 
1076 
I  077 
1078 
107  V 
1080 
1001 
1002 

1 003 

1004 
100b 
1086 

1087 

1088 
100V 
I  0V0 
10V  I 
I0V2 


f 

*  i 


LISTING 


C 

C  ***  SET  UP  SWITCHING  CHin-TtlON  *★* 

C 

P3X=P3F 

IF  I.NOT.LGTD)  GO  TO  1 7V 

THEX-THETAX/DPH 

TANX«TAN(THEX> 

IF  (ZX. 01.0.. AND. THETAX.ni.O.)  CO  TO  177 
AK«WHOS< 1 )-HH0S(2> 

THEX»ASIN< I ./SOHT(AK)) 

TANX«TAN (THEX) 

IF  (LNF.ANI).  (TANX.KE.0. >>  ZX«0.5*AW/TA NX 
THETAX«THEX*OPW 
1 77  P3X-THETAX 

IF  ( .NOT.LNF )  GO  TO  17V 
IF  (P2.LT.ZX)  GO  TO  180 
IF  (LHANG)  GO  TO  1 7V 
P3X«P2*7ANX 

1 7v  NA1«(P3X-P3I )/DP3+l. 1 
IF  (NT. LI. NAI)  NAI*NT 
IF  (NAI.GT.0)  GO  TO  182 
100  NAI-0 

NGTH=NT 
THI2*P3I 
GO  TO  2b5 
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SECTION  6.  APERTURE  INTEGRATION  FOR  NEAR  FIELD 
PURPOSE 

To  numerically  integrate  the  aperture  fields  for  near  field  cal 
culations  and  express  the  field  in  rectangular  components. 


UPPER  RIM 


Figure  1.  Geometry  of  y-lntegration  for  near  field. 
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METHOD 


For  aperture  fields  with  arbitrary  polarization  having  both  x  and 
y  components,  the  near  field  can  be  expressed  as 

f  •  £  ll  [F«  $  *  Fy  E?]  ^  dxdy  (1) 

where  Fx  and  f  are  the  vector  element  patterns  for  the  respective  x 

and  y  components  (Ea,Ea)  of  the  aperture  field. 

*  y 

By  integrating  numerically  Equation  (1)  can  be  expressed  in  a  sum  of 
series  form  as 

E  =  {  I  I  [FXMNEXMN  +  FYMNEYI 

where  F)(mn  and  ^YMN  are  the  vector  element  patterns  of  the  equivalent 
aperture  currents.  These  are  assumed  to  radiate  the  same  polarization 
as  a  Huygen's  source  and  thus  the  vector  element  patterns  are  expressed 
in  rectangular  coordinates  as 


fXMN  =  txCMcose^  -1  Jcos2^] 

+  y(cos6|^-l  JsinfyflCOSfy^ 

-  z  sineMNcos^MtJ}  cos^j 

=  {x  Cxx  +  y  Cxy  -  z  sin^cos^JELPAT 
EYMN  =  (C0S6MN-1  )sin*MNcos$MN 

+  y[l+(coseMN-l)sin2^MN] 

-  2  sineMNsi^MNj  co^f) 

=  (x  Cxy  +  y  Cyy  -  z  s i neMNs i n*MN } ELPAT 


(3) 


(4) 


The  fields  ES|W*Ea(l  ,M,N)  and  Ey^«Ea(2,M,N)  are  the  X  and  Y  components 
of  the  aperture  field  sample^  atHChe  points  ( XM • Y^ )  on  the  principal 
grid.  The  basic  pattern  FRS  of  each  rectangular  subaperture  is  given  by 


frs  a  Dx°y fxnfyn 


(5) 


where  FXN  and  Fy^  are  the  horizontal  and  vertical  element  patterns  of 
each  rectangular  subaperture.  The  typical  element  patterns  for  a 
basic  subaperture  with  full  triangular  distribution  are  given  by 


h 

sin 

*x 

k  2  > 


r  *  " 
sin  -X 


where 


<PX  =  k  Dx  s  ineMNcos*MN 


4>y  =  k  Dy  sine^sin^  (S 

The  angles  eMN  and  ^  are  the  polar  coordinate  angles  to  the  near 
field  point  ™x,Y,Z)  as  referred  to  the  aperture  point  (XM,YN).  The 
distance  S  in  Equation  (2)  is  given  by 


S  =  /(x-xm)2+(y-yn)2+z2 


The  summations  over  N  in  Equation  (2)  are  performed  over  the 
vertical  grid  lines;  a  typical  vertical  grid  line  is  shown  in  Fig.  1. 
The  y- integrations  given  by  Y^yufM)  are  calculated  In  a  similar  way 
as  that  for  the  far  field  (see  section  4)  as  expressed  by 

*SUM^  *  (ySL+ySM+ySu)°Y  f11) 


i 


for  each  rectangular  component  of  the  near  field.  However,  the  vector 
element  patterns  In  Equations  (3)  and  (4)  for  the  equivalent  aperture 
currents  and  the  element  pattern  functions  Frc  In  Equation  (5)  for  the 
rectangular  subaperture  must  be  Included  for  the  near  field.  For  sub¬ 
apertures  near  the  rim,  the  element  patterns  F«N  and  Fvu  In  Equation 
(5)  are  expressed  by  the  pattern  of  a  half  triangular  distribution 
(see  Section  6). 

The  sumnatlon  over  M  in  Equation  (2),  i.e.,  the  x-integration 
part,  is  just  a  simple  sum  of  YsUM>s  as 

MAX 

SUM  =  D*  l  YSUM(M)  (12) 

M=  1 

for  each  rectangular  component  of  the  near  field.  Then  the  near  field 
at  point  (x,y,z)  is  obtained  by 

E  =  i  (SUMxx  +  SUM^y  +  SUM2z)  .  (13) 
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FLOW  DIAGRAM 


KEY  VARIABLES 

CXX 

X  component  of  a  X-oriented  Huygen's  source 

CXY 

X  component  of  a  Y-oriented  Huygen's  source 
or  Y  component  of  an  X-oriented  Huygen's  source 

CYY 

Y  component  of  a  Y-oriented  Huygen's  source 

DPX 

(♦x> 

Horizontal  phase  argument  of  a  basic  sub¬ 
aperture 

DPXL 

Horizontal  phase  argument  of  a  subaperture  at 
the  left  edge 

DPXR 

Horizontal  phase  argument  of  a  subaperture  at 
the  right  edge 

DPY 

(♦y) 

Vertical  phase  argument  of  a  basic  subaperture 

DPYL 

Vertical  phase  argument  of  a  subaperture  at 
the  lower  edge 

DPYU 

Vertical  phase  argument  of  a  subaperture  at 
the  upper  edge 

EA(l.M.N) 

<Exa> 

X  component  of  the  aperture  field  at  grid 
point  (XM.YN) 

EA(2,M,N) 

(£J) 

Y  component  of  the  aperture  field  at  grid 
point  (XM.YN) 

EAL 

Interpolated  aperture  field  at  the  lower  rim 
point  along  grid  line  M 

EAU 

Interpolated  aperture  field  at  the  upper  rim 
point  along  grid  line  M 

EOX 

X  component  of  the  computed  near  field 

EDY 

Y  component  of  the  computed  near  field 

EDZ 

Z  component  of  the  computer  near  field 

ELPAT 

Element  pattern  function  for  equivalent 
aperture  current 

EXPI 

Phase  term  for  the  leftmost  grid  point  inside 
the  aperture 

EXPL 


Phase  term  for  the  leftmost  rim  point 


EXPM 

Phase  term  for  the  rightmost  grid  point  inside 
the  aperture 

EXPR 

Phase  term  for  the  rightmost  rim  point 

FFXN 

(Fxn) 

Horizontal  pattern  function  for  a  rectangular 
subaperture 

FFY 

Vertical  pattern  function  for  a  basic  rectan¬ 
gular  subaperture 

FHYM 

Vertical  pattern  function  for  a  basic  rectan¬ 
gular  subaperture  with  a  half  triangular 
distribution  (negative  argument) 

FHYP 

Vertical  pattern  function  for  a  basic  rectan¬ 
gular  subaperture  with  a  half  triangular 
distribution  (positive  argument) 

FYM 

Vertical  pattern  function  for  a  rectangular 
subaperture  at  the  edge  with  a  half  triangular 
distribution  (negative  argument) 

FYP 

Vertical  pattern  function  for  a  rectangular 
subaperture  at  the  edge  with  a  half  triangular 
distribution  (positive  argument) 

GRIDX 

Horizontal  grid  size  in  the  principal  grid 
system 

GRIDY 

(  Dy) 

Vertical  grid  size  in  the  principal  grid  system 

JC 

Horizontal  grid  line  index  of  the  origin  of  the 
reflector  coordinate  system 

JLO 

(JL) 

Index  for  the  horizontal  grid  line  inside  the 
projected  aperture  closest  to  the  lower  inter¬ 
section  point  on  the  grid  line  M 

JUO 

(Ju> 

Index  for  the  horizontal  grid  line  inside  the 
projected  aperture  closest  to  the  upper  inter¬ 
section  point  on  the  grid  line  M 

MAX 

^X^ 

Maximum  number  of  vertical  grid  lines 

MC 

Vertical  grid  line  index  M  of  the  origin  of 
the  reflector  coordinate  system 

PHIRN 

PHI  coordinate  angle  of  the  near  field  point 

XN  as  referred  to  the  aperture  point  (XM.YN' 
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QDX 

Normalized  distance  f  n  the  integration  point 
to  the  vertical  grid  line  M 

QXL 

Normalized  distance  from  the  leftmost  rim  point 
to  the  first  vertical  grid  line  inside  the 
aperture 

QXR 

■ 

Normalized  distance  from  the  rightmost  rim  point 
to  the  last  vertical  grid  line  inside  the 
aperture 

QYL 

Normalized  distance  from  the  lower  rim  to  the 
grid  line  JL 

QYU 

Normalized  distance  from  the  upper  rim  to  the 
grid  line  J'J 

S 

Distance  from  a  grid  point  not  adjacent  to  the 
rim  to  the  near  field  point  XN 

SI 

Distance  from  the  intersection  point  along  the 
grid  line  M  to  the  near  field  point  XN 

SUMX 

X  component  of  the  x- integration  sum 

SUMY 

Y  component  of  the  x-integration  sum 

SUMZ 

Z  component  of  the  x-integration  sum 

THERN 

(0mn) 

Theta  coordinate  angle  of  the  near  field  point 

XN  as  referred  to  the  aperture  point  (XM.YN) 

XN 

Coordinates  of  near  field  point 

XP 

X-coordinate  of  the  near  field  point  XN  as 
referred  to  the  aperture  point  (XM.YN) 

YEXP 

Phase  term  for  near  field  integration  for  the 
grid  point  (XM.YN) 

YLR 

^lr) 

Y-coordinate  of  the  intersection  of  the  grid 
line  M  and  the  lower  rim 

YP 

Y-coordinate  of  the  near  field  point  XN  as 
referred  to  the  aperture  point  (XM.YN) 

YSLX 

X  component  of  the  lower  sum  of  the  Y-inte- 
gration 
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YSLY 

YSLZ 

YSMX 

YSMY 

YSMZ 

YSUX 

YSUY 

YSUZ 

YSUM( 1 ,M) 


Y  component  of  the  lower  sum  of  the  Y- inte¬ 
gration 

Z  component  of  the  lower  sum  of  the  Y-inte- 
gration 

X  component  of  the  middle  sum  of  the  Y-inte 
gration 

Y  component  of  the  middle  sum  of  the  Y-inte 
gration 

Z  compqnent  of  the  middle  sum  of  the  Y-inte 
gration 


X  component  of  the  upper  sum  of  the  Y-inte- 
gration 

Y  component  of  the  upper  sum  of  the  Y-inte- 
gration 

Z  component  of  the  upper  sum  of  the  Y-inte- 
gration 

X  component  of  the  total  sum  of  the  Y-inte- 
gration  for  grid  line  M 


YSUM(2,M) 


Y  component  of  the  total  sum  of  the  Y-inte- 
gration  for  grid  line  M 


YSUM( 3 ,M) 


Z  component  of  the  total  sum  of  the  Y-inte- 
gration  for  grid  line  M 


YUR  (yUR)  The  Y-coor<1^nate  the  intersection  of  the 

grid  line  M  and  the  upper  rim 
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CODE  LISTING 


147  C 

1 4 8  C  ***Y  I  N'i  HGRAT  I  ON  FOR  NEAR  FIELD  *** 

14V  C 

Ibl o  SUM  X=(0.,0.) 

it»  i  suz.;y=(0.,h.) 

Ib2  SUMZ=(0.,0.) 

Ib3  DO  220  Ms  I, MAX 

Ib4  NPRI =0 

Ibb  IF  (  LUET-UG.  AND.  ( M. EO.MNO ) )  NPRI  =  I 

ISO  XP=XN(  I  )-(M-NC)*GRDX 

Ib7  IF  (M.EC.I)  XP=XN( I J-XMIN 

lt.8  IF  (M. 1:0. MAX)  XP=XN(  1  )-XMAX 

IbV  RP=XP*XP+XN( 3) *XN( 3 ) 

1 00  JLO=JL(M) 

101  JUO=JU( h  ) 

162  IF  ( JUO-JLO.GT. 1 )  GO  TO  206 

163  YP=XN(2)-YLR(M) 

164  PH  I K N=BT  A  N2 ( Y  P , X  P ) 

lot  SINPN=SIN( PHIRN) 

loo  COSPN=CCS ( PHIRII ) 

1 07  THERN=tn  AN2 ( SORT ( XP*XP+YP*YP  ) ,  XN  <  3  ) ) 

1 08  SINTN«SIN(THEKN> 

16V  COSTN=CCS(THHRN) 

I/O  S=SQRTOP*YP+RP) 

17  1  FYPI  =('FYP(—  ('  l*TPT*S) 

1 72^  YSUM(  I  ,M)«(YUI?(M)-YLR(M)  >*EA(  I  ,M .  JUO  )*EXPL/S 

173  YSUMI2,  A  )  =  (  YUR  C  M  )-YJ.R(  M )  )*EA(2  ,  JUO  )*  EX  PL/S 

174  ELPAT=COS< THERM/2. ) 

17b  L)UMY=C0E1N- 1  . 

I  76  CXX=  I .  +0 OS PN *C OS Pf J *DUM Y 

I  7  7  C’X  Y=SI  NPN*C<>SPN*DUMY 

178  CYY= I  .  +  i  I NPN*SINPN*1)UMY 

17V  YSIJM  ( 3 , M ) = -3 1 NTN * ( YSUM ( I , M ) *00 SP N+  YSUM ( 2  t  M  >  * S I NPN ) * ELP  AT 

180  TMX=YSU7( 1 fM) 

I  to  I  YSUM ( I »M )  =  (CXX*TMX+CXY*YSUM( 2, ft ) )*ELPAT 

1 82  YSUM  ( 2 ,  /•)  =  ( C  X  Y  *TMX +C  Y  Y  * Y  SU b  (2,71)  )*  ELP  AT 

183  IF  (LWYEUM)  fcMITF  (6,166)  M ,  YSUM  (I  ,?•(),  YSUM  ( 2  ,  M  ) ,  YSUM  ( 3 ,  M ) 

184  GO  TO  220 
18b  0 

186  G  *  CALCULATE  YSM  * 

187  C 

188  206  JF=JIJ0-I 

IbV  JI=JLO+ I 

IV0  KM=J F-JI+I 

IVI  YSMX=(0. ,0. ) 

IV2  YSMY=(0.,0.) 

IV3  YSMZ=(0. ,0. ) 

IV4  DO  208  KJ= I , KM 

IVb  J=KJ+J I -  I 
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i  I  VO 

I  IV/ 

I I  vb 
I  I  vv 
1 200 
120  1 
I  2(52 
120b 
I  204 
120b 
I  200 

1207 

1208 
120V 
1210 
12  1  1 
1212 
1212 
1214 
12  lb 
1216 

1217 

1218 
121V 
1220 
122  I 
1222 
1222 
1224 
122b 
1  220 

122  7 
1228 
122V 
123/ 

123  1 

1232 

1233 

1234 
123b 
1226 

1237 

1238 
I  2o  V 
1241; 

124  I 
1242 
1242 
i  244 
124b 
1240 


NJ=J+ 1 

YP=XN(2 )-( J-JC )*GRDY 
PHIRN=BTAN2< YP.XP) 

SI NPN=S1 N( PHIRN ) 

COSPN=COS( PHIRN) 

THERN=BTAN2( SOkTC XP*XP+YP*YP ), XN(3 ) ) 

S I NTN=S I N ( THERN ) 

COSTN=COS ( THERN ) 

DPX=TPI*COSPN*SI NTN*GRDX 
FFXN=FF ( DP  X ) +C J*0 . 

DPXL=DPX*QXL 

DPXR=DPX*QXR 

IF  (M.EO.I)  FFXN=OXL*FH( DP XL ) 

IF  (M.ECJ.2)  FFXN=FH( DPX)  +OXL*FH( -DPXL) 

IF  (M. EG. MIX)  FFXN=FH(-DPX)+OXR*FH(DPXR) 

IF  (M. EC. MAX)  FFXN=OXR*FH(-DPXR) 

DPY=TPI*SI  NPN*SI  NTN*GRDY 
FFY=FF ( DPY ) 

S=S()RT  ( YP*YP+RP) 

YEXP=CEXP( -CJ*TP I*S)*FFXN*FFY 
ELPAT=COSC  THERN/2 . ) 

DUMYCOSTN-1  . 

CXX=I .+COSPN*COSPN*DUMY 
CXY=SI NPN*COSPN*DUMY 
CYY= I .+SINPM*SINPN*DUMY 

YSMX=YSMX+ (C  XX*EA( 1 f  M, NJ )+CXY*EA (2 , M ,N J ) )*YEXP*ELPAT/S 
YSMY=YSMY+(CXY*EA( I ,M,NJ )+CYY*EA(2 ,M,MJ) )*YEXP*ELPAT/S 
YSMZ=YSMZ-SI NTN* (EA( 1 ,M, NJ )*C0SPN+EA(2 ,M,NJ )*SINPN )*YEXP*ELP AT/S 
208  CONTINUE 
C 

C  *  CALCULATE  YSL  * 

C 

YP=XN(2)-YLR(M  ) 

SI=SQHT(YP*YP+RP) 

EXPL=CEXP(-CJ*'1PI*SI  ) 

YP=XN (2 )- ( JLO-JC )*GRDY 
S2=S0RT( YP*YP+RP ) 

E  X  P I  =C  H  X  P  ( -C  J  *  TP  I  *  S2  ) 

PHI RN=B3  AN2 ( YP , XP) 

SINPN=SIN( PHIRN) 

COSPN=COS( PHIRN) 

1HERN-BT AN2 ( SORT ( XP*XP+YP* YP ) ,  XN ( 3  ) ) 

SI NTN=SIN< THERN) 

COSTN=COS< THERN) 

1)PX=TP  I  *COSPN*S  I  NTN*GRDX 
FF  XN =FF  (DPX)  +C  J*'A . 

I)PXL=UPX*0  XL 
l)PXR=0PX*0  XR 

1 F  ( M  .  EG .  I  )  FF  XN  =0  XL*F  H  (  DP  XL  ) 

IF  (M.EG.2)  FFXN=FH(I)PX)+OXI.*FH(-DPXL) 

IF  (M. EC. MIX)  FFXN=FH(-DPX )+OXR*FH(DPXR) 
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1247 

1248 
124V 
1 2bfc» 

I  2b  I 
I  2b2 

•  2b3 
I2b4 
I  2bb 
I  2bo 
12b7 
I  2b8 
1  2bV 
I  260 
1201 
1262 
1 263 
I  2o4 

126  b 
1266 

1 207 

1 208 
126V 
1270 

127  I  C 
1272  C 
127  3  C 
127^ 
127  b 
1270 
12  7  7 
127b 
127  V 

!  2bfc) 

1 2b  I 
1282 

1283 

1284 
128b 

•  280 

•  287 

•  2bb 

•  28V 
I2VH 

•  2V  I 
1 2V2 
I  2V3 
1 2V4 

•  2Vb 
l  2V0 
I2V7 


IF  (M. HQ. MAX)  FFXN»OXH*rH(-I>PXK> 

DPY=TPI*SI  NPN*SI  NTN+OROY 
FHYP=FH(DPY) 

DPYL=DP  Y*(3  YL  ( M  ) 

FYM=FH(-DPYL) 

FYP*FH(DPYL) 

EXPL=EXPL*FYP*QYL(M) 

EX  P I =EX  P I * ( F YM*0 YL  <  M )+FH  YP ) 

EAL=EA< I .M.JLO+I  )*(QYL(M)+I.  )-EA(l  tM  .JLO+2  )*OYL(  M) 

IF  (NPRI.EQ.  I)  WRITE  (6,~)  l:A<  • JLO+  1 )  ,EA(  1  .  M,  JI.0+2) 
YSLX=FFXN*(EAL*EXPL/SI+HA(  1 .  K,  JLO+1  )*[  XPI/S2  ) 

E'AL=EA  (2,  M.JLO+I )*<QYL(M>+1. )- EA (2 ,M , JLO+2 ) *QYL ( M ) 

IF  (NPRI.EQ.  •)  WRITE  (6.WV)  JLO. J I . FA (2 ,M, JI ) ,EA( 2 , M, 
2 ,  EAL 

YSLY=FFXN* ( EAL+EXPL/S • +EA ( 2 , Mt JLO+ I ) *E  XP I/S2 ) 

ELPAT=COS ( THERN/2 . ) 

DUMY=CO£TN-l . 

CXX= I .+CO$PN*COSPN*DUMY 
CXY=SINPN*COSPN*DUMY 
CYY=  I  ,+ETNPN*SINPN*DUMY 

Y  SLZ  —  S I NTN*  ( Y  SL  X*  CO  SP  N+  YS  L Y*S  I N  PN  )  *  EL  P  AT 
TMX=YSLX 

YSLX=(CXX*YSLX+CXY*YSLY)*ELPAT 
YSLY= (CXY*TM X+CYY* YSLY ) *  ELPAl 

★  CALCULATE  YSU  * 

YP=XN(2 )-YUR  CM ) 

S1=S0RT(YP*YP+RP) 

EXPR=CEXP(-CJ*TPI*SI ) 

YP=XN(2 )-( JIIO-JC )*GRDY 
S2=S0RT< YP+YP+HP) 

EXPM=CEXP(-CJ*TPI*S2 ) 

PHIRN*BTAN2( \P.XP) 

SI NPN=SI N ( PHIRN ) 

COSPN=COS(PHIHN) ■ 

THERN=B3AN2(  SORT«XP*XP+YP*YP  > . XN  (3  )  > 

SI NTN=SI  N(THERN) 

COSTN-CGS(THFRN) 

DPXaTPI*COSPN*SI NTN+ORDX 
FFXN=FF ( OPX ) +C J*0. 

DPXL=I)PX*QXL 

DPXH=DPX*QXR 

IF  (M.EO.l)  FFXM=OXL*FM(  OP  XL ) 

IF  (M.E0.2)  rFXN=FH(l)PX)+\>XL*FP<-I)PXL> 

IF  ( M.EQ.MIX )  FFXN=FI1(-DPX)+0XR*FH(0PXL) 

IF  (M.Eti.MAX)  FFXN=QXR*FI!( -IJPXR) 

DPY=TPI*SI NPN+SI NTN+CKOY 
FHYM=FH(-L)PY ) 

L)PYU=L)PY*QYU  (M ) 

HYM=FH(-I)PYU) 


.EAL 
JLO+2 ) 


'1 


29b  FYI>=FH(DPYU ) 

299  E  a  PM  =E  X  P M* ( F  YP*G  YU ( M ) ♦FH YM ) 

300  EXPR=EXPH*FYM*QYU(  M) 

301  EAU=EA(  l‘,M, JUO+I  )* (QYU ( M )+  1 ,  )-EA ( 1  ,M,JUO)*QYU(M) 

302  IF  (NPKI.EO. I)  MITE  (6,-)  EA(  I  ,M,  JUO+  1 )  ,EA(  1  ,M,  JUO)  ,EAU 

303  YSUX=FFXN*(EAU*EXPR/S1+EA( 1,M, JUO+I )*EXPM/S2) 

304  EAU*EA(2,M .JUO+I )*(OYU(M)+l . )-EA (2 ,M,JUO)*OYU(M) 

30b  IF  (NPRl.EO.l)  WRITE  (6,909)  JUO.JF, EA(2 ,M .JUO+I ), EA(2 ,M, JUO ) 

300  2.EAU 

307  IF  (NPRl.EO.l)  WRITE  (6,-)  OYL (M ) ,OYU( M ) , YLR (M ) , YUR( M) 

30fa  YSUY=FFXN*(EAU*EXPR/SI+EA(2,M, JUO+1 )*EXPM/S2) 

309  ELPAT=C0S(THERN/2. ) 

310  DUMY=COSTN-l . 

3 1 1  CXX=1 .+COSPN*COSPH*DUMY 

312  CXY=SINPN*COSPM*DUMY 

313  CYY= I . +SIN PN*S I N  PN+DUM  Y 

314  YSUZ»-SINTN*(YSUX*COSPN+YSUY*SINPN>*ELPAT 

3  I  b  TMX-YSUX 

3 1 o  YSUX=(CXX*YSUX+CXY*YSUY) +ELPAT 

317  YSIJY=(CXY*TMX+CYY*YSUY)*ELPAT 

31b  YSUM ( I ,M )= ( YSLX+YSMX+YSUX) *GRDY 

3  I  9  YSUM (2 ,M )= ( YSLY+YSMY+YSU Y)*GRDY 

320  YSUM ( 3 , M )= ( YSLZ+ YSMZ+YSUZ ) *GRDY 

321  IF  (LWYSUM )  WRITE  (6,166)  M, YSLX, YSMX, YSUX, YSUM( 1 , M) 

322  IF  (LWYSUM)  WRITE  (6,166)  V  %  YSLY,  YSMY,  YSUY,  YS1JM(  2,M ) 

323  IF  (LWYSUM)  WRITE  (6,166)  M,  YSLZ.YSMZ,  YSllZ,  YStlM(  3,  M) 

324  c 

32b  C  ***  X  INTEGRATION  FOR  NEAR  FIELD  *** 

32  O  C 

327  SUMX=SUM X+ YSUM ( I ,M )*GRDX 

32b  SUMY=SUMY+YSUM(2,M)*GRDX 

j2  9  SUMZ=SUMZ+YSUM(3,M)*GRDX 

330  IF  (LWYSUM)  WRITE  (6,166)  M, SUMX ,SUMY, SUMZ 

331  220  CONTINUE 

332  EL)X=CJ*SUMX 

333  El)Y=CJ*SUMY 

334  EDZ=CJ*SUMZ 

33b  IF  ( LTEST)  WRITE  (6,195)  EDX,EDY,EDZ 

336  IF  ( .NOT.L'FEED)  GO  TO  224 
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SECTION  7.  X-INTEGRATION  FOR  FAR  FIELD 
PURPOSE 

To  numerically  integrate  the  y-integration  sums  along  the  horizon¬ 
tal  grid  line  and  obtain  the  final  far  field  pattern. 


HETHOO 


Using  the  result  of  y-integration,  the  scalar  radiation  integral 
for  the  far  field  pattern  reduces  to 

E  ’  fc  f  "X  ’SUH  dx 

xmin 


The  x-integration  is  divided  into  three  parts  in  a  similar  w*y 
as  was  the  y-integration.  The  middle  part  consists  of  the  basic  sub¬ 
apertures  (subapertures  with  full  grid  size)  with  full  triangular  dis¬ 
tribution  as  shown  by  the  dashed  lines  In  Fig.  1.  The  expression  for 
the  distribution  of  a  basic  subaperture  is  given  by 


fF(x)  -  1  - 
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for  | x-xQ j <d  ,  as  shown  in  Fig.  2a.  The  resulting  far  field  pattern  for 
the  basic  subaperture,  i.e.,  element  pattern,  is  given  by 


fSF( 6  *♦)  =  dx  cos*  MO 

where 

W  ■ 

and  the  argument 

<j>x  *  k  dx  sinecos* 


Thus  the  result  for  the  middle  part  of  the  x-integration  is  simply  the 
sum  of  the  product  of  the  y-integratlon  sum  and  the  phase  exponential 
for  each  subaperture  multiplied  by  its  element  pattern  as  given  by 


MO 


*V»x“2 

l 

M«3 


.<")  e 


where  I*M-1,  Ic  is  the  I  index  for  the  origin,  and  is  the  maximum 
number  of  rotated  grid  lines. 


Figure  2.  Triangular  subaperture  distributions 
(full  and  half). 


84 


The  contributions  from  the  left  and  right  parts  of  the  x-lntegra- 
tion  are  treated  in  the  same  way  as  for  the  lower  and  upper  parts  of  the 
y-integratinn,  except  that  the  element  patterns  are  calculated  separately 
for  each  of  the  three  subapertures  near  each  of  the  left  and  right  edges 
of  the  reflector  rim.  Each  of  these  subapertures  has  a  half-tri angular 
distribution  as  shown  in  Fig.  2b.  The  element  patterns  for  these  sub¬ 
apertures  can  be  represented  by 


The  contribution  S.  from  the  left  part  is  given  in  terms  of  the  y-inte- 
gration  sums  fiL  and  frL  as  shown  in  Fig.  1.  The  edge  value  fEE  is 
obtained  by  extrapolation  using  Equation  (15)  with  ^iL*YSum^2^  an<1  ^2L* 
Ysun,(3).  thus 

/  AXi\  AX. 

*EL  =  Ysum^xmin^  *  Ysu*/2)  +  d "  Ysum^  dj“ 

where  axL  is  the  distance  between  x,^,,  and  the  M*2  grid  line. 

Consequently,  the  contributions  from  the  three  subapertures  of  the  left 
part  are  given  by 


SL  *  fEL  e 


jkxwinsinecos4 


phKi>xi 


j(l-Ic)*x 

+  f  1 L  e  CFh(-*xL)axl  + 


where 

flL  =  YSUH^2^  an0 
♦xL  =  k  axl  sinecos$ 


is  the  argument  for  the  element  patterns  FH(±$xL )  of  the  two  subaper¬ 
tures  with  width  axe. 

Similarly,  the  value  fEq  for  the  y-lntegratlon  at  the  right  edge 
of  the  reflector  rim  is  given  by 


'er  ■  WW  ■  WU-'l 
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The  contributions  of  the  three  subapertures  of  the  right  part  can  be 
obtained  as 


SR  *  fER  e 


jkj^axSinecosiii 


Fh("*xR*mR 


*  flR  e 


ilW-'cK 


^H^xR^R  +  FH*‘*x'dx-' 


where 


flR  ^um^^x”1)  and 


4>xr  =  k  axr  sinecos<f> 


Finally,  the  resulting  far  field  pattern  function  as  calculated 
by  the  rotating  grid  method  is  obtained  by  adding  up  the  partial  sums. 

SUM  =  (SL  +  SM  +  SR)  cos(|) 

where  cos (e/2)  is  the  element  pattern  factor  of  the  equivalent  aperture 
currents. 

Since  the  aperture  field  has  both  x  and  y  components,  the  far  field 
pattern  associated  with  these  two  orthogonal  aperture  field  components 
are  calculated  by  the  above  equation  and  represented  by  SUMx  and  SUMy 
respectively.  Each  element  of  tlje  aperture  is  assumed  to  radiate  the 
same  polarization  as  a  Huygen's  source,  thus  the  spherical  components 
of  the  far  field  pattern  are  given  by 


E^  =  j(cos$*SUMx+sin<|>*SUMy)|cos<|>| 


and 


E^  =-j(sin<j>*SUMy-cos<jcSUM  )  |cos#| 

9  A  J 

where  |cos$|  is  the  correction  factor  for  the  enlarged  grid  size  due 
to  grid  rotation. 
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FLOW  DIAGRAM 


KEY  VARIABLES 


ACOSP 

|cos*| 

Absolute  value  of  cos* 

DPX 

<♦*> 

Phase  argument  of  a  basic  subaperture 

DPXL 

<*XL> 

Phase  argument  of  a  subaperture  at  the  left 
edge 

DPXR 

(♦xr) 

Phase  argument  of  a  subaperture  at  the  right 
edge 

EDP 

(Ej) 

PHI  component  of  the  radiation  field 

EDT 

(Eg) 

THETA  components  of  the  radiation  field 

ELPAT 

Element  pattern  function  for  equivalent 
aperture  current 

EXPI 

Phase  term  for  the  leftmost  grid  point  inside 
the  aperture 

EXPL 

Phase  term  for  the  leftmost  rim  point 

EX  PM 

Phase  term  for  the  rightmost  grid  point  inside 
the  aperture 

EXPR 

Phase  term  for  the  rightmost  rim  point 

FFX 

(Fp(*x)) 

Horizontal  pattern  function  for  a  basic  sub- 
aperture  with  a  full  triangular  distribution 

FHXM 

Horizontal  pattern  function  for  a  basic  sub¬ 
aperture  with  a  half  triangular  distribution 
(negative  argument) 

FHXP 

Horizontal  pattern  function  for  a  basic  sub¬ 
aperture  with  a  half  triangular  distribution 
(positive  argument) 

FXM 

Horizontal  pattern  function  for  a  subaperture 
at  the  edge  with  a  half  triangular  distribution 
(negative  argument) 

FYP 

Vertical  pattern  function  for  a  subaperture  at 
the  edge  with  a  half  triangular  distribution 
(positive  argument) 

GRDX 

Horizontal  grid  size 
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MAX 

PG 

PHSX 

PHXL 

PHXR 

QXL 

QXR 

RFCT 

SUMLX 

SUMLY 

SUMMX 

SUMMY 

SUMRX 

SUMRY 

SUMX 

SUMY 

XEXP 

YML 

YMR 

YSUM(1,M) 

YSUM(2,M) 


I 


*Viax 


Maximum  number  of  rotated  grid  lines 

Variable  used  for  phase  argument  DPX  (calculated 
in  subroutine  GRID) 

Phase  path  of  an  integration  grid  point  on 
the  aperture 

Phase  path  of  the 

Phase  path  of  the  rightmost  rim  point 

Normalized  distance  from  the  leftmost  rim  point 
to  the  first  vertical  grid  line  inside  the 
aperture 

Normalized  distance  from  the  rightmost  rim  point 
to  the  last  vertical  grid  line  inside  the 
aperture 

Range  factor  (used  if  LRANG  is  true) 

X-component  of  the  left  x-integration  sum 

Y-^component  of  the  left  x-integration  sum 

X-component  of  the  middle  x-integration  sum 

Y-component  of  the  middle  x-integration  sum 

X-component  of  the  right  x-integration  sum 

Y-component  of  the  right  x-integration  sum 

X-component  of  the  total  x-integration  sum 

Y-component  of  the  total  x-integration  sum 

Phase  term  for  an  integration  grid  point 

Interpolated  YSUM  value  at  the  left  edge 

Interpolated  YSUM  value  at  the  right  edge 

X-component  of  the  total  sum  of  the  Y-integra- 
tion  for  grid  line  M 

Y-component  of  the  total  sum  of  the  Y-integra- 
tlon  for  grid  line  M 


89 


CODE  LISTING 


t  37  A 
1  37 1. 
137  6 
1  377 
137  b 
137  V 

1380 

1381 

1382 

1383 

1384 
138b 
1386 
I  3b  7 
I  3fcb 
138V 
1  3V0 
I3VI 
13V2 
I3V3 
I  3V4 
I  3Vb 
1  3V6 
I3V7 
1  3V8 
13VV 
I  400 
I  40  i 
1402 
1  403 
1  404 
l  40b 
1406 
I  407 
I  408 
1  40V 
1410 
Mil 

1412 

1413 

1414 
I  41b 
1410 

1417 

1418 
141V 
1  420 
I  42  I 
1422 


C 

C  *****  X  INTEGRATION  FOR  FAR  FIELD  ***** 

C 

227  DPX=PG*SINT 
FFX=FF  (DPX ) 

FHXP=F'H(DPX) 

FHXM=FH( -DPX ) 

IF  (LTEST)  KRITH  (6,228)  DPX ,FFX ,FHXP, FHXM 
228  FORM  AT  (2  FI  O,TI0,'L>PX  =y , F7 .4 ,5X, 5F 10 .5 ,T7V , l HD ) 

C 

C  *  MIDDLE  SUM  * 

C 

SUMMX=(0.,0. ) 

SUMM Y-(0 . , 0, ) 

DO  230  M= I .MAX 

IF  (M.LE.2.0R.M.GE.MIX)  GO  TO  230 

I  =M-  1 

IX=I-IC 

PHSX=IX*DPX 

vfvp=('P\p(  r  i*Pimy ) 

SUMMX*SUKMX+YSUM(1 , M )*XEXP*FFX*GRDX 
SU MM  Y=SU MM  Y+  YGIJM  ( 2  ,  M  ) ★  XE  XP*FFX*GRD X 
IF  (LWYSIIM)  WRITE  (6,166)  M, SUMVX, SUMMY 
230  CONTINUE 
C 

C  *  LEFT  SUM  * 

C 

PHXL=(  XA.IN/GRDX)*DPX 

DPXL=QXL*DPX 

FXP*FH(DPXL> 

FXM=FH( -DPXL ) 

EXPL=CEXP(  CJ*PIIXL) 

£XPI=CEXP(CJ*( I  —  I C )*DPX) 

YML=YS’  M(  I  ,2  )* (OXL+ 1  .  >-YSUM(  1,3)*0XL 

SUML X ~ YML* EX PL*F XP*DXL+YSIJM (1,2) *EXP I*  ( FXM*DXL+FHXP*ORDX  ) 
YML=YSUM  ( 2  , 2  ) *  ( 0 XL+ 1  . )  - Y SU M ( ? ,  3 )  *Q XI. 

SUMLY=YML*EXPL*FXP*DXL+YSUM(2,2)*EXPI*(FXM*DXL+FHXP*GRDX) 

C 

C  *  RIGHT  SUM  * 

C 

PHXR=( XMAX/GRDX ) *DPX 
DPXR=QXR*DPX 
FXP=FH(I)PXR ) 

FXM-FH(-DPXH) 

EXPR=CEXP(CJ*p;iXR) 

EXPM=CEXP  (CJ*(  I M  AX- 1  C)  *DPX  ) 

YMR=YSUM(  1  ,M  IX)*  (OXR  + 1  .  )-YSl)M(  1,  IMAX)*QXR 

SU  MR  X= YMR*  EX  PR*F  XM  *DXR+ YSU  V ( I , MI  X ) *EXPM* (FXP*DXR+FHXM*GRDX ) 
YMR=YSUM ( 2 , M I X ) * ( OXR+ 1 . ) -Y  SUM( 2 , IM AX )*0X  R 
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1  423 
1  424 
142b 
I  426 
1427 
I  42« 
1429 
14345 
143  I 
1432 
1  433 
I  434 


SUMRY=YA  R*EXPE*FXK*DXR+YSU,V! ( 2 , MI  X ) *EXPV* ( P  XP*DXR+FHXM*GP;)X  ) 
IF  ( LWYSUM )  KR ITE  (6,166)  M, SUMLY, SUMHY 
ELPAT=C0S(THER/2.) 

SUMX=ELPAT*(  f.U ML X+ SIJMM  X+  SUM  R  X ) 

SUMY=ELPAT*(  SUMLY+SU  MM  Y+  SI  I M  R  V  ) 

IF  (LTEST)  WRITE  (6,195)  SUMX.SIJKY 
EL)T=CJ*(COSP*SUMX+SI  f(P*SUMY)*RFCT*ACOSP 
E  D  P =C  J  *  ( -  S I N  P*  SU  M  X +C  OS  P*  SU  M  Y  )  *  l<  F  CT*  A  CO  S  P 
IF  (LTEST)  WRITE  (6,195)  COSP,  SINP,  ACOSP 
IF  (LTEST)  WkliE  (6,235)  N,EDT,EDP 
23b  FORMAT ( 2H  T, Ib,4El 1 . 3,T79, 1HT) 

IF  (.NOT.LFfcED)  GO  TO  24 2 
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f 


i  *  > 

B.  SUBROUTINES 
SUBROUTINE  BABS 
PURPOSE 

This  function  computes  the  absolute  value  of  a  complex  argument. 
It  is  similar  to  CABS,  except  it  avoids  run  time  errors  when  the  real 
part  and  imaginary  part  of  the  argument  are  zero. 


METHOD 


The  system  function  CABS  is  used  unless  the  absolute  value  of  the 
real  part  and  the  imaginary  part  of  the  argument  are  close  to  zero,  in 
which  case  a  very  small  value  is  returned. 


KEY  VARIABLES 
X 

Y 

Z 

CODE  LISTING 


Absolute  value  of  the  real  part  of  Z 
Absolute  value  of  the  imaginary  part  of  z 
The  complex  argument 


FUNCTION  BARS(Z) 

<_ ;  *  i 

Cl !!  THIS  ROUTINE  IS  USED  TO  GIVE  COMPLEX  ABSOLUTE  VALUES.  IT  IS 
C!!!  USED  RATHER  STANDARD  ROUTINES  TO  AVOID  EXECUTION  ERRORS. 

C !  ! ! 

COMPLEX  2 
X=AbS( REALCZ ) ) 

Y=AbS( AIMAGCZ) ) 

IFIX.LT. I.E-20.AND.Y.LT. 1.E-2D)  GO  TO  ID 
BABS=CALS(Z) 

.)  1  RETURN 

t?  ID  UA3S=l.E-?0 
RETURN 

1 4  END 


l 
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SUBROUTINE  BTAN2 
PURPOSE 

This  function  computes  the  two  argument  arctangent  function.  It 
is  similar  to  ATAN2,  except  it  avoids  run  time  errors  when  the  second 
argument  is  zero. 


METHOO 


The  system  function  ATAN2(Y,X)  is  used  to  return  the  angle  in 
radians,  whose  sine  is  Y  and  cosine  is  X  unless  the  second  argument 
or  both  of  the  arguments  are  zero.  If  the  second  argument  is  zero, 
either  n/2  or  ~*/2  is  returned  depending  on  the  sign  of  the  first 
argument.  If  both  arguments  are  zero,  a  zero  value  is  returned. 


KEY  VARIABLES 

X  Second  argument,  which  is  the  cosine  of  the 

angle  to  be  computed 

Y  First  argument,  which  is  the  sine  of  the  angle 

tp  be  computed 


CODE  LISTING 


1  FUNCTION  BTAN2  < Y , X ) 

2  C  !  ! ! 

3  c!!!  THIS  ROUTINE  IS  USED  TO  COMPUTE  THE  ARCTANGENT.  IT  IS  SIMILAR 

4  U!l  TO  ATAN 2  EXCEPT  IT  AVOIDS  THE  RUN  TIME  ERRORS. 
i>  CM! 

o  COMMON/ PI  S/P I, TP I, DPR 

7  IH(AUS(X).G1 .1  .E-20)  GO  TO  50 

IF(AUS(Y).GT.I  .E-20)  GO  TO  10 
bTAN2=0. 

10  RETURN 

11  iiri  f<TAN2*PI/2  • 

12  I E (Y.LT.0. )  BTAN2— BTAN2 

1 2  RETURN 

I  4  50  MXAN2=A'i  AN2  (  Y,  X ) 

1 5  RETURN 

I  o  END 


93 


SUBROUTINE  DBPHS 


PURPOSE 

To  calculate  the  normalized  power  level  in  dB  and  the  phase  of 
a  complex  field  value. 


METHOD 

The  power  of  a  complex  field  value  E  expressed  in  dB  is  given  by 


DB  =  20  log10|E|  +  REF 


and  the  phase  of  E  by 

* =  tan''  OsHf) 

where  Re(E)  and  Im(E)  are  the  real  and  imaginary  part  of  E.  j 

For  far  field  calculations  without  the  range  factor  e*JkR/R  (LRANG 
=false).  The  output  of  the  code  is  expressed  as  antenna  gain  relative 
to  isotropic.  In  this  case,  the  value  of  REF  is  set  equal  to  REFDB  which 
is  calculated  in  the  main  program  using  the  information  of  relative  power 
radiated  by  feed  (see  Section  1  of  the  main  program). 

For  far  field  calculations  including  the  range  factor  or  for  near 
field  calculations  the  value  of  REF  is  set  to  zero.  The  value  of  REF 
is  summarized  in  the  table  below. 


TABLE  FOR  REF  VALUE 


FLOW  DIAGRAM 
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.«)  .n  o* 


KEY  VARIABLES 


Normalized  power  level  of  complex  field  value  E 
Phase  of  the  complex  field  value  E 


FAS E  (*) 


CODE  LISTING 


1  SUBROUTINE  DBPHS(AE,E,REF) 

2  COMPLEX  E 
COMMON  /PI  S/PI  ,TPI  ,DPR 
AE*BABS<E) 

IF  (AE.GT.0. )  GO  TO  10 
DB»-t>00. 

FASE«0. 

GO  TO  20 

10  I)B»20.*ALOGI0(AE)+REF 

FASL:=BTAN2  ( A I M  AG  ( F ) ,  RE  AL  ( E  ) )  *DPR 
20  E*CM  PLX ( DB ,F  ASE ) 

RETURN 
END 


i 

8 
9 
10 
1  1 
12 
1  3 


' 
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SUBROUTINE  OCHP 


PURPOSE 

To  calculate  the  edge  diffraction  coefficients,  the  slope  dif¬ 
fraction  coefficients  of  a  half  plane,  the  corner  diffraction  coeffi 
cients  and  the  slope  corner  diffraction  coefficients  for  a  plate. 


METHOD 


Using  the  wedge  diffraction  coefficient  formulation  [5,6],  the 
edge  diffraction  coefficients  for  a  half  plane  can  be  expressed  by 

DSfh(e.e0)  =  or  *  di+ 

where 

-j  1 

DI”  _  ~e  4  F[kLa(s~)] 

2^k  sineQ  CQS  £_ 

-j 

DI+  =  — - - -  Fl!$L(S.+.)3 

2f2ii k  sin0Q  cos 

3  =  4»  ^  4* 1  , 


a  =  2  cos^|)  » 

L  is  the  distance  parameter, 

F(X)  *  2j|^|eJX  (  e'jT  dr  is  the  transition  function, 

'1*1 

30  is  the  diffracted  cone  angle  and 

$  and  are  the  diffraction  angles  for  the  diffracted  field  and 
incident  field,  respectively. 
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The  slope  diffraction  coefficient  for  a  half  plane  is  given  by 

3D.  h  . 

— =  DPI  ±  DPI+ 

where 


0pr  ■  j/lrk sr  t1'FCkU<6‘ 


-i  1  . 

j  ■  J  ^  ^ 

w4  ■  #  »'{r)  n-FCM.au*)]] 

The  corner  diffraction  fields  from  a  corner  of  a  plate  (see  Fig.  1) 
can  be  represented  by [7] 


CsEj 

=  CORN 

cC  p  cl 


where 


CORN  = 


sinec  e 


2ir(cos0oc+cosBc] 


F|kLca(0oc+8c)i  J^c  e'Jk(Sc"S,) 


C$>h  =  DP  x  AFC-  +  DI*  x  AFC+ 


AFC+  *  F  rr-  ~7p  1 

lkLca(8oc;pc^ 


is  the  heuristic  function  . 


Note  that  the  angles  goc,  g  (see  Fig.  1)  and  the  corner  distance  para¬ 
meter  c 


Lc  =  ^ 


sc+s 


are  calculated  in  the  subroutine  GTD. 

In  the  code  the  diffracted  fields  from  both  corners  ME  and  ME+1 
of  a  rim  segment  ME  are  combined  in  the  following  way 


' 

BseJ, 

Ei 

vi 

where  the  coefficients  Bs  and  Bh  are  given  by 


Bs  h  =  or  x  CC“  +  DI+  x  CC+ 


and 


cc+  -  cornme  X  afc;e  ♦  cornme+1  X  afC;e+1 

Similarly,  the  coefficients  for  slope  corner  diffraction  are  given  by 


3BS,h 


3°s,h 

3*f 


x  (C0RN|^e  +  C0RNj^£+-j  ) 
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ME  ♦  I 


Figure  1.  Geometry  for  corner  diffraction  problem* 
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DCHP{DEL,CORN,R,PS,PSO,SBO) 
INPUT  VARIABLES 


DEL 


CORN 


R  (L) 

PS  (♦) 

PSO  (♦•) 

SBO 


Loop  through  incident  and 
reflection  parts  of  the 
diffraction  coefficients 


Calculate  the  incident  and 
reflection  parts  of  the 
diffraction  coefficient  DI 

and  those  of  the  slope  diffraction  coefficient  DPI 


NO 


Variable  representing  the  value  of 
kLca(eoc+6c) 

Variable  representing  the  part  of  the 
corner  diffraction  coefficient 
exclusive  of  Cs>h 

Distance  parameter 

Diffraction  angle  for  diffracted  field 
Diffraction  angle  for  incident  field 
Sine  of  the  diffracted  cone  angle  bq 


101 


Loop  through  both  corners 
ME  and  ME+1 
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KEY  VARIABLES 


INPUT/ 

OUTPUT 


A 

(a) 

Angular  separation  parameter 

AFC 

Heuristic  function  for  corner  diffraction 

ANG 

Variable  for  PS±PS0  in  radians 

ARG 

Argument  for  AFC 

BET 

(6) 

Variable  for  PS±PS0  in  degrees 

BH 

(Bh) 

Hard  corner  diffraction  coefficient 

(0) 

BPH 

© 

Hard  slope  corner  diffraction  coefficient 

(0) 

BPS 

/3B  x 

I _ s\ 

y9<t) 1  j 

Soft  slope  corner  diffraction  coefficient 

(0) 

BS 

(Bs) 

Soft  corner  diffraction  coefficient 

(0) 

CC 

Variable  representing  the  combined  effect 
for  both  corners  ME  and  ME+1  in  the  corner 
diffraction 

DI 

The  incident  or  reflection  part  of  the  edge 
diffraction  coefficient 

DH 

(Dh) 

Hard  diffraction  coefficient  for  edge 

(0) 

DPH 

0) 

Hard  slope  diffraction  coefficient  for  edge 

(0) 

DPS 

f3DsA 

[W) 

Soft  slope  diffraction  coefficient  for  edge 

(0) 

DS 

(DS) 

Soft  diffraction  coefficient  for  edge 

(0) 

FA 

Transition  function  for  edge  diffraction 

FFCT 

Transition  function  (see  section  on  FFCT) 

LCORNR 

Logical  variable  for  corner  diffraction 
(see  User's  Manual) 

(I) 

LSLOPE 

Logical  variable  for  slope  diffraction 
(see  User's  Manual) 

(I) 

\ 
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SL  Value  for  DI  near  the  shadow  boundaries 

TERM  Temporary  coefficient  for  DS.DH 

TERMP  Temporary  coefficient  for  DPS.DPH 


CODE  LISTING 


1  SUBROUTINE  DCHP<  DEL, CORN ,R ,PS, PSO»SBO) 

2  DIMENSION  DEL(2) 

3  COMPLEX  CORN (2 ) ,  DI (2), DP  1(2) ,CC( 2 ) ,TERM,TERMP, FFCT,F A, TOP 

3  COMPLEX  CJ ,DS,f)H,DPS,DPH,BS,BH,BPS,BPH,CIN,CIP,CCP 

b  COMMON  /DSC/DS  ,DH, DPS, DPH, BS,BH, BPS, BPH 

6  COMMON  /PIS/PI  ,TPI  , DPR 

7  COMMON  /LOGDIF/LSLOPF,LCORNR,LNF,LRANG 

b  COMMON  /TEST /LDEBUG, LTEST,  NTEST 

V  COMMON  /TOPD/TOP 

I  0  COMMON  /OUT/NW 

II  LOGICAL  LCORNR.LSLOPE, LDEBUG, LTE ST 

12  IF  ( LDEBUG )  WRITF  (NW,2)  R , PS, PSO, SBO, LOG, DEL ( 1 ) .DEL (2 ) 

13  2  FORMAT  (T5,' DEBUGGING  SUBROUTINE  DCHP' ,//4F 1 0.2, L5,2F1 0.4) 

14  CJ=( 0. ,  1  . ) 

lb  TERM=TOP/(2.*TPI*SBO) 

lo  THRMP=CJ*2 .*TPI*TERM*R 

17  IF  (LDEBUG)  MITE  (NW,3)  TERM, TERMP 

lb  3  FORMAT  (TI0.6HTERM  =,2F I  0.4, bX,7HTERMP  =  ,2F10.4) 

IV  SL=0.b*SORT( R)/SBO 

20  IF  (DEL( 1 ) .LT. l.D-20)  DEL( 1 ) =1 .D-20 

21  IF  ( DEL( 2 ) .LT. l.D-20)  DEL ( 2 ) =1 .D-20 

22  BET=PS-PSO 

23  DO  20  N=  1 , 2 

24  ANG=BET/DPR 

2b  SB=SIN( ANG/2 . ) 

20  CB=COS ( ANG/2 .) 

27  A=2.*CB*CB 

2B  IF  ( LDEBUG )  WRITE  (NW,4)  BET,CB, A 

2V  4  FORMAT  (T1 0,5HBHT  =,F8.2  ,5X, 4HCB  = ,F 10 .6 , 5X, 3HA  =,FI0.6) 

30  X=TPI*AES(R*A) 

31  IF  ( (LSLOPE) .OR. (X.LE. 10. ) )  FA=FFCT( X) 

32  IF  (X.GT.10. )  FA=1 ,+CJ/( 2 . *X )-3. /( 4 . *X*X ) 

33  IF  (LDEBUG)  WRITE  (NW,7)  X,FA 

34  7  FORMAT  (Tl 0,3HX  =,FI 0. 4, 5X,4HFA  =,2F10.6) 

3b  IF  (A.GT.  I  .D-2  0)  GO  TO  b 

36  DI (N )=-SL+CJ*0. 

37  GO  TO  8 

38  S  CONTINUE 
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3  V 

i)I  (N  )='i'ERM*F  A/CR 

40 

b 

CONTINUE 

4  1 

DPI  (  N)  =7F'RMP*SB*  (  1  .-FA) 

42 

IF  (Ll)hUIG)  WRITE  (NI.,9)  DI ( N> ,DPI ( N ) 

43 

V 

FORMAT  (TI0,4HUI  =  ,  2FI  O.  S,  bX  ,bHI)PI  =  ,2FU3.5) 

44 

IF  ( .NOT.LCORNR)  GO  70  lb 

4b 

CC(N  )=(0. ,0. ) 

46 

DO  12  1=1,2 

47 

ARG=R*A/OEL(  I ) 

4b 

AFC=  1 . 

4  S> 

IF  (AWG.LH.lt).  )  AFC= BARS (FFCT( ARC)  ) 

b0 

CC ( N )=CC(N )+COWN ( I )*AFC 

b  1 

IF  (  LDElrUG)  LRITE  ( N^,  11  )  ARG, AFC, CC  C ! ) , CORN ( 1 ) , CORN (2  ) 

b2 

1 1 

FORMAT  (T5,5HARG  =  ,F  10.4  ,bX,  bMAFC  «,7Flt?.6) 

b3 

12 

CONTINUE 

b4 

lb 

BET=PS+PSO 

bb 

20 

CONTINUE 

b6 

DS=f>i ( 1 )-DI (2) 

b7 

DH*l) I  (  1  )+l)  I  (  2 ) 

bb 

DPS=DPI (  1  )+DFI  (2  ) 

bV 

I)PH=l)PI  (  1  )  -DPI  (2  ) 

Ofr 

IF  (.N07.LC0l.rW)  RETURN 

6-1 

Cl  N-UI  (  1  )*CC(  1  ) 

6' 2 

CIP=I)I  <2  )*CC<2  ) 

6. 

HS=C I N-C I P 

04 

bH=CIH+CIP 

6  b 

CCP=COWN( 1 )+C0WN (2 ) 

60 

HPS=i)PS*CCF 

o7 

BPH=I>PH*CCP 

Ob 

RETURN 

ov 

END 
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SUBROUTINE  DFPTWO 


PURPOSE 

To  determine  the  diffraction  point  on  a  rim  segment  for  either 
a  far  field  or  near  field  point  and  determine  the  incident  ray  unit 
vector. 


(a)  far  field 


(b)  Near  field 


Figure  1.  Geometry  for  locating  diffraction  point 
Xq  on  edge  ME. 

METHOD 

The  coordinates  of  the  diffraction  point  Xq  are  determined  by 
solving  a  similar  triangle  system.  For  edge  ME, 


r 


For  far  field  (see  Fig.  la),  since  cose  *d*V  then 


cote  3  l  «  .  o 
0  fl  -(d-V)2 


and  T  =  S  cote0  . 

For  near  field  (see  Fig.  lb) 


PN  •  <W'# 


SN  *  lXH-XME-pNil 


and 


T  =  (PN-P)S/(S+SN) 

Thus  the  coordinates  of  the  diffraction  point  are  determined  by  the 
vector 


XD  =  XME  +  (P+T^  • 

The  distance  S'  from  the  source  X$  to  the  diffraction  point  XQ 
is  determined  from 

vT  =  xD-xs 


and 


S'  =  1 VI  | 


The  unit  vector  for  the  incident  ray  is  then  obtained  by  normalizing 
the  above  vector 
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FLOW  DIAGRAM 


DFPTWDUS.XN.DV.VI 

,SP,XD,ME) 

INPUT  VARIABLES 

XS 

Source  location  in  rectangular  coordinate 
system 

XN 

Near  field  point  coordinates 

DV 

Inner  prodjct  of  the  diffraction  vector 
and  the  edge  vector 

ME 

Rim  segment  index 

OUTPUT  VARIABLES 

VI 

Incident  ray  unit  vector 

SP 

Incident  ray  path  length 

XD 

Coordinates  of  the  diffraction  point 

Calculate  cote0,  the  distance  P  and  the  perpendicular 
distance  S  from  the  source  to  the  edge 


I 


Calculate  PN,  SN  and 
the  projected  length 
T  of  SP  on  the  edge 


Calculate  the  projected 
length  T  of  SP  on  the 
edge 
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Calculate  the  coordinates  of  the  diffraction 
point  XD,  the  incident  ray  path  length 
SP  and  the  incident  ray  unit  vector  VI 


RETURN 
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KEY  VARIABLES 


INPUT/ 

OUTPUT 


CTB  Cotangent  of  diffraction  angle  B0 

LNF  Logical  variable  to  determine  whether  near  (I) 

field  or  far  field  is  calculated 

P  Distance  from  the  source  to  the  corner 

ME  projected  on  the  edge 

PN  (PN)  Distance  from  the  near  field  point  XN  to 

the  corner  ME  projected  on  the  edge 

S  Perpendicular  distance  fran  the  source  to 

the  edge 

SN  (SN)  Perpendicular  distance  from  the  near 

field  point  to  the  edge 

SP  (S')  Incident  ray  path  length 

T  Projected  length  of  SP  on  the  edge 

X  (XuF)  Rectangular  coordinate  components  of  the  (I) 

rim  point  ME 
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CODE  LISTING 


1 

SUBROUTI NE  DFPTWD< XS , XN  f  DV , V I , SP , XD, ME 

2 

C!  !! 

3 

(J !  ! ! 

DETERMINATION  OF  THE  DIFFRACTION  POINT 

4 

Cl!! 

b 

DIMENSION  XS(3)fXN(3),XD(3),VI (3) 

o 

LOGICAL  LSLOPE.LCORNR, LNF.LRANG 

7 

COMMON  /GEOM1/X(67,3),V(67t3),MRIM 

b 

COMMON  /LOGDIF/LSLOPEtLCORNR,LNF,LRANG 

V 

CTB=DV/SORT( l.-DV*DV) 

10 

P=0. 

1  1 

PN=0 . 

12 

DO  10  M» 1,3 

i  3 

IF  (LNF)  PN=PN+<  XN(N )-X( ME,N ) ) *V(ME, N> 

1  4 

10 

P=P+(XS(N)-X(ME,N) )*V(ME,N) 

lb 

S=0. 

lo 

SN=0. 

1  7 

DO  20  N= 1 , 3 

18 

SY=XN( NJ-X (ME,N) -PN*V(ME  tN ) 

19 

SX=XS(N)-X<ME,N)-P*V(ME,N> 

20 

SN=SN+SY*SY 

2  l 

20 

S=S+SX*SX 

22 

S=SORT(S) 

23 

SN=SORT(SN) 

24 

T=S*CTB 

2  b 

IF  (LNF)  T=( PN-P )*S/ (S+SN ) 

2o 

DO  30  N=1 ,3 

2  7 

30 

XD(N  )=X< ME ,N )♦ ( P+T )*V( ME ,N ) 

2b 

SP=0. 

29 

DO  40  N=  1 , 3 

30 

VI  (N)=XD(N)-X5(N) 

31 

40 

SP=SP+VI  <N)*VI  (N)  ' 

32 

SP=SQRT( SP ) 

DO  50  N= 1 , 3 

34 

b0 

VI (N )=VI (N )/SP 

3b 

RETURN 

36 

END 
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SUBROUTINE  FEED 


PURPOSE 

To  determine  the  magnitude  of  the  feed  pattern  in  any  given 
direction  as  referred  to  the  reflector  coordinate  system. 


Figure  1.  Geometry  of  the  feed  coordinate  system. 


METHOD 


For  a  given  direction  U,$)  in  the  reflector  coordinate  system 
the  transformation  from  (<<,<<>)  to  (ti>a,<p  )  in  the  feed  coordinate  is 
given  by 


i|*a  =  cos-1  ( si n«pj  sinipsin<|>  +  cosg»-|-  cos<|>) 
1  cosipjsi nipsi n<t>  -  sin^cos^ 


=  tan 


sirnpcosd> 


where  g/  =  n  -  o  and  giy  is  the  feed  tilt  angle  (in  the  YZ  plane). 

Various  symmetry  options  are  available  to  reduce  the  amount  of  input 
data  required  for  symmetrical  feed  patterns,  as  shown  in  Table  1. 
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TABLE  1 


J ISYM | 

SYMMETRY 

*X 

LIMITS  FOR  *x 

NO 

* 

-ir  <  *x  <  it 

1 

x-  and  y-axis 

|*|  or  ±tt-<j> 

0  <  *x  1  2 

2 

x-axis 

kl 

0  <  <t>x  <  IT 

3 

y  axis 

+  TT-* 

TT  .It 

-  2-^X-2 

To  find  the  feed  pattern  value  at  Ua,$  )»  <j>-  is  adjusted  and  is 
represented  by  according  to  the  symmetry  index  ISYM.  Then  the  two 
PHI  cuts  <j>p,  <j>q  of  the  input  feed  pattern  adjacent  to  <j>x  are  determined 
by  comparison.  The  feed  pattern  values  gp  and  gg  are  calculated  at 
the  angle  in  the  planes  4>p  and  *q,  respectively,  by  using  either 
linear  interpolation  between  stored  values  or  an  analytic  pattern  func¬ 
tion. 


The  linear  interpolation  is  performed  by  calling  subroutine  LNFD. 


if  ISYM  <  0  (odd  symmetry) 

if  ISYM  >_  0  (even  symmetry) 

for  t|>  <_  i|»L 

for 

for  2^  ^  i> 


where 
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*L  *JT  *0 

is  an  empirical  cuto.f  criterion  and  N,  C,  A  and  <j >Q  are  input  para¬ 
meters  to  control  the  feed  pattern. 

Finally,  the  magnitude  of  the  feed  pattern  value  gf  at  Ua.<|>Y) 
is  obtained  by  interpolating  gp  and  gp  as  follows: 


9f  =  dpQ  9p  +  (1_<1pq)9q 

where 


❖  -♦ 

dPQ  = 


5. 

Q 


lib 


FLOW  DIAGRAM 
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Calculate  feed  value  in  PHIX 
plane  by  linear  interpolation 
between  PHP  and  PHQ  planes 


RETURN 


KEY  VARIABLES 

INPUT/ 

OUTPUT 

FP 

Input  feed  pattern  data  for  linear 
interpolation 

(I) 

GF 

(9f) 

Feed  pattern  value  at  (PSA,  PHGAM) 

(0) 

GP 

(9p) 

Feed  pattern  value  calculated  at  PSA  in 

PHP  cut 

GQ 

(9q) 

Feed  pattern  value  calculated  at  PSA  in 

PHQ  cut 

ISYM 

Symmetry  index  for  input  feed  pattern 

PHIN 

Input  feed  pattern  cut  angle 

(I) 

PHIX 

(♦x) 

Adjusted  PHGAM  angle  according  to  ISYM 

PHP 

Up) 

Upper  input  PHI  cut  adjacent  to  PHIX 

PHQ 

(♦q) 

Lower  input  PHI  cut  adjacent  to  PHIX 

PSIL 

UL) 

Cutoff  criterion  for  analytic  pattern 

PSIO 

(*0> 

Input  parameter  to  control  the  feed  pattern 

(I) 

PSIT 

UT> 

Feed  tilt  angle 

(I) 

PX 

Input  feed  pattern  angle 

(I) 
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CODE  LISTING 


1  SUBROUTI  NL  t  fcfc'IH  PS  I ,  PHI  P ,  PSA  ,  PHGAM  ) 

2  DIMENSION  PHIN( 15)  ,FPI  (  I  5)  tFP(  15,  15)  ,AEX(  15)  ,CAN(  15)  , 

J  IPX)  (  15),  PX(  15,  15),  GN(2),FP2(  15),  PX2(  15),  PSI  0(  15) 

4  COMPLEX  CX.CV 

5  LOGICAL  LDEBUG, LTEST, LPSL,  LDB 

o  COMMON  /FED/N2 ,  PHI  N,  PX,  FP,  LDR,  LCK, NPHI  ,NPW,  AEX  ,C  AN  ,PSI  0,  PS  IT 

7  COMMON  /COMP/CX, CY ,GE , PHP , PHO, KX ,KY, ISYM , SI  NT, COST 

b  COMMON  /PIS/PI ,TPI , DPR 

V  COMMON  /PRHV/I PR , PREP, PR  EX ,  PRES 

10  COMMON  /'IE  S'i /LDF  HUG ,  ETFST,  NT FST 

1 1  COMMON  /OUT/NW 

12  I  F  (  NTES'l  .  LO.  I  )  NR  I VI:  (Ml\,H)  PEI,  PI  IIP 

1^  8  FORMAT  (  //'1 8, 'DEBUGGING  SUBROUTINE  FELT'  ,/T  1  2 ,  '  PSI  =  ', 

14  2F7 .2 ,5X,/PHI P  =',F7 .2,/) 

lb  PHGAW=P|  i  I  P 

16  PSA=PSI 

17  IF  (PSn.HO.C.)  GO  VC  10 

18  PSIR=PS//L)PR 

IV  PHIPK=PHI P/DPR 

20  SI NS=S  I N  ( PSI  R ) 

2  1  COSS  =COS  ( PSI  R ) 

22  SI NP=SI N ( PHI  PL ) 

2j  COSP=COT(PHI  PR  ) 

24  PS  A = AC  OS ( S I N  T*  S I  MS*  S 1 N  P+ CO  ST*CO  $S ) *DPR 

2  5  Tt MP  «C0 ST* SI NS*SI N P- S 1  NT *COS  S 

26  Ir  ((ABS(TEMP)+ABS(CGSP) ).LT. 0.0001 )  TFMP=0.O0CI 

27  PHGAM=B7 AN2 ( 7EMP , SI NS*COSP )*DPR 

28  10  CONTI NUL 

2  V  5  FORMAT  O' 12.4) 

30  IF  ( ISYM. HO. IPR. AND. PHGAM. LO. PREP)  GOTO  15 

ol  PH  I X=PHCAM 

j2  IB=IABS( ISYM) 

So  IF  ( 1B.LO.0)  GO  TO  15 

o4  IF  (IB.E0.3)  GO  TO  12 

35  PHI X=ABE ( PHI  X) 

c6  IF  (IB. EO. 2)  GO  TO  15 

3  7  12  IF  (PJilX.GT.  VO. )  PHI  X=  1 80. -PHI  X 

ob  IF  ( PHIX.LT. -VO.  )  PH I X=- 1 80. -PHI  X 

3  V  15  CONTINUE 

40  IF  (NTEE'i . L0.2  .OR.MTEST.EO.  1  )  FRITE  (NW,18)  PHGAM, PSA, PHIX 

41  Id  FORMAL  ( /T 12 ,7 PHGAM  *',F7.2,'  PSA  =',F7.2,'  PHIX  =  ', F7.2) 

42  SI NP  X=5 1 N ( PH  1 X/DPR ) 

4~  IF  (PHIX. GE. PHO. AND. PHIX. LE.PHP)  GO  TO  30 

44  DO  20  NP=2  ,MPHI 

45  IF  (PHIX.LT. PHIN(NP) )  GO  TO  22 

40  20  CONTINUE 

47  NP=NPHI + 1 

48  PHIN(NP)=PHIN( 1 )+360. 

4  V  PSI  0(  NP )  =PSI  ()(  I  ) 
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b0 

22 

SI 

b2 

S3 

04 

2b 

bb 

be 

27 

b7 

b8 

b9 

60 

0  1 

2b 

62 

30 

6-1 

04 

6  b 

00 

07 

ob 

09 

70 

7  1 

72 

32 

7  3 

74 

7  b 

76 

77 

7  b 

79 

80 

b  1 

82 

83 

84 

8b 

80 

8  7 

33 

88 

89 

90 

9  I 

92 

93 

3b 

94 

9b 

90 

9  7 

NQ*NP- I 
PHO=PHIN(NQ) 

PHP=PHIMNP) 

IP  (NTEST.EO.I  )  WRITE  (NW,2b>  PHO.PHP 
FORMAT  (TI2,'PHQ  =' , F7 .2 , 5X , 'PUP  =  ',F  1.2) 

IF  (NCK.EQ.2)  GO  TO  32 
00  28  K= I , N2 
PXI (K)=PX(NQ,K) 

FPI (K)=FP(NQ,K) 

PX2  (K)  =  PX(NP',K ) 

FP2(K)=FP(NP,K) 

CONTINUE 

IF  (NCK.EQ.2)  GO  TO  32 
OP SI =ABS( PSA-PRES ) 

IF  (PPS1.LT.0. I .AND.PHIX.EO.PREX)  GO  TO  39 
CALL  LNFD(PXI,FPl,oSA,M2,GO.LDB) 

CALL  LNFD( PX2 . FP2 , PSA.N2 ,GP, LDB) 

IF  (NTEST.EO.I)  WRITE  (6,0)  PSA,GO,GP 
IF  (.NOT. LOB)  GO  TO  39 
GQ= 10. **(00/20. ) 

GP= 1 0. ** (GP/20 . ) 

GO  TO  39 
LPSL=. FALSE. 

SLOPE=0. 

PSY=PSA 
00  38  N=  1 , 2 
NN=NO+N- I 

IF  (ISYM.L T.0)  GO  TO  33 

IF  (NPW.NE  .  1  .OR  .CAN(  NN ) .  LT  .0 . .  OR .  AFX  ( !JN)  .LT.  3.  )  GOTO  33 
PSL=SQR7(3./AEX(NN ))*PSIO(NN  ) 

OPSL=PSA-PSL 

IF  (OPSL.LE.0.)  GO  TO  33 

PSY=PSL 

LPSL=.TRUE. 

IF  ( OPSL.LT . PSL)  GO  TO  33 
GN(N)=0. 

GO  TO  38 
QX=PSY/PSI 0( NN ) 

ARG=0.b*PI*0X 

ARGEX=AEX( NN)*QX*QX 

IF  (ARGEX.Li .20. )  EXPN=EXP (-AROEX) 

IF  ( ARGEX.GE.20. )  EXPN=0. 

IF  (NTEST.EO.I)  WRITE  (NW,3b)  ARG, AEX( NN ) ,CAN( NN ) , EXPN 
FORMAT  (/T12,'ARG  =' ,F9. 3, SX AEX( N )  =  F9.3,bX, 'CAN(N  ) 

2F9.3,bX,'EXPN  =',F9.3,/) 

IF  (ISYM.GE.(-)  GO  TO  3  7 
GM(N)=CAN( NN )*EXPN*SI N ( ARC ) **NPW 
GO  TO  3b 
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Vb 

37 

GN  (N  )=EX PN*CGS (  ARG )  **NPrV 

vv 

GN  ( N  )=  ( ON  (  N  )+C  AN  ( MN  )  )/  (  1  .+CA:I(  NN  )  > 

1  OO 

IF  (LRSL)  SLOPE=-GN(N)/PSL 

10 ) 

GN ( N ) =GN ( N )+ SLOP E*  DPSL 

1 02 

38 

CONTINUE 

103 

GG=GN( 1 ) 

1(04 

GP=GN(2  ) 

1  lob 

3  V 

DPQ=  (  PHI  X-  PMC )  /  (  P1IP-PHQ) 

106 

GF=Gp-*DPQ+CO*(  l-DPO) 

10'/ 

IE  (  (NTEST.FC.  1  )  .OP.  (NTEST.  1:0.2  )  ) 

10b 

b0 

FORMAT  (/Tl 0,'GF  =  ',FI0.4) 

10V 

PREX=PH1 X 

1  1  0 

PREP-PHOAM 

M  1 

PRES=PSA 

1  12 

I PR= I SYM 

112 

RETURN 

1  1  4 

END 
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FUNCTION  FF 
PURPOSE 

To  calculate  the  element  pattern  function  of  a  rectangular  sub¬ 
aperture  with  full  triangular  distribution. 

METHOD 


2 
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FLOW  DIAGRAM 


CODE  LISTING 


1  FUNCTION  FXDP) 

2  IF  ( ABS(OP).LT.0.000I )  GOTO  II 

3  X=DP/2 . 

4  TEMP=SIN ( X  )/X 

b  FF='I  bMP*'iEMP 

G  GO  TO  12 

i  II  FF  =  I  . 

E:  12  NFTTJMN 

V  INI' 
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FUNCTION  FFCT 
PURPOSE 

The  purpose  of  this  function  is  to  determine  the  transition 
function  for  the  edge  and  corner  diffraction  coefficients. 

METHOD 

The  transition  function  for  the  edge  and  corner  diffraction  coef¬ 
ficients  is  given  by[ 5] : 

FFCT(x)  =  2j| i/x|  ej*  /  di. 

1^1 

This  can  also  be  written  as 

FFCT(x)  =  j  /2*|x|  eJx  |\o.5-j0.5)-  (z  (fii)  .„(/=)] 

where 


dt  =  C(o)  -  jS(a). 

KEY  VARIABLES 

CFR 

Real  part  of  Fresnel  integral 

DEL 

Argument  of  transition  function 

FFCT 

Transition  function 

S 

Argument  of  Fresnel  integral 

SDEL 

SQRT( ABS(DEL) ) 

SFR 

Imaginary  >art  of  Fresnel  integral 
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S  >f  ct 


COOE  LISTING 


1  COMPLEX  FUNCTION  FFCT(DEL) 

2  CSSS 

3  L!*i  DETERMINES  THE  TRANSITION  FUNCTION  RESULT  FOR 

4  LI!!  CORNER  DIFFRACTED  FIELD 

b  L !  ! ! 

6  COMMON/PIS/PI, TP  I,  DPR 

’*  COMMON  /OUT/NW 

sde:l=sort(abs(deu  ) 

S»SORT(2./PI )*SDEL 
CALL  FRNELS(CFR,SFR,S> 

11  FFCT=CMPLX<0.b-CFR,SFR-0.5> 

12  FFCT=SORT(TPI)*SDEL*FFCT*CEXP(CMPLX(0.  ♦DEL+PI/2.  )> 

1 3  RETURN 

1 4  END 
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FUNCTION  FH 
PURPOSE 

To  calculate  the  element  pattern  function  of  a  rectangular  sub¬ 
aperture  with  half  triangular  distribution. 

METHOD 


FhU)  = 


i 

4 
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FLOW  DIAGRAM 


CODE  LISTING 


1  COMPLEX  HUNCH  ON  FH(DP) 

2  COMPLEX  CJ.CnP.TEMP 

3  CJ=(0.fI.) 

4  C1)P-CJ*DP 

IF  ( AbS<DP).LT.W .4W2  )  GO  TO  21 

6  ibMP=( I .-CFXP(CDP) )/(DP*OP) 

7  FH=ll£MP-<  I  ./COP) 

t  GO  TO  22 

V  21  FH=tf .S+CDP/6. 

le.  22  RETURN 

•i  1  HNO 
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SUBROUTINE  FPOL 
PURPOSE 

To  calculate  the  rectangular  vector  components  of  the  E-field  of 
the  feed  as  referred  to  the  reflector  coordinate  system. 

METHOD 


The  two  linear  polarization  components  of  the  feed  pattern  of  an 
arbitrarily  oriented  (in  the  x-y  plane)  Huygen's  source  (crossed  elec¬ 
tric  and  magnetic  dipoles  [2])  are  given  by 


fx  =  cx  *  *s  *  9f 
fx  =  cy  •  ♦$  •  9f 

where  Cx  and  Cy  are  polarization  parameters  expressed  as 

f 

Cx  =  cos(t)  for  linearly  polarized  feed  with 

<  polarization  angle  =  t 

Cy  =  sin(t) 


r 


cx 


,  _L 

n 

_  JL 

S2 


for  circularly  polarized  feed  • 


t  is  the  phase  of  excitation  as  given  by 


te  =  1 


ISYM  >_  0  (even  symmetry) 


=  pJ4* 


_  sin<}> 


*S 


si  a; 


cost 
I  cost  I 


ISYM  =  -1 


ISYM  =  -3 


ISYM  -  -2  r  (odd  symmetry) 


and  g^  is  the  magnitude  of  the  feed  pattern  which  is  calculated  by  the 
subroutine  FEED. 
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! 


The  spherical  vector  components  of  the  feed  pattern  are  obtained 
by 

Eja  =  -  cos»,fx  -  s(n*Yfy 
£jv  =  -  si"*Yfx  *  cos«vfy 

where  gq  and  <t  are  the  spherical  coordinate  angles  in  the  feed  coordi¬ 
nate  system. 

The  rectangular  components  are  calculated  by 
EJ  =  -  cos^cos^E^  -  sin*YE^ 

Ey  =  -  cosg^sin^E^  +  cos^E^ 
and 

E1  =  *  sin*aE0a  • 

The  electric  field  vector  is  then  transformed  from  the  tilted 
feed  coordinate  system  to  the  reflector  coordinate  system  as  follows: 


E^  =  cos^Ey  -  sinipyE^ 
E^  =  simjijEy  +  cosijijEz 
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FLOW  DIAGRAM 


FPOL  (EIX,EIY,EIZ,PSA,PHI) 

INPUT  VARIABLES 

PSA  (i^a)  Theta  coordinate  of  the  observing  direction 

measured  from  the  feed  axis. 

PHI  U  )  Phi  coordinate  of  the  observing  direction 

referred  to  the  tilted  feed  system. 

OUTPUT  VARIABLES 

EIX,  EIY,  EIZ  X,Y,Z  components  of  the  electric  field  of  the 
feed  referred  to  the  reflector  coordinate 
system. 
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KEY  VARIABLES 

INPUT/ 

OUTPUT 

CX 

(Cx) 

Polarization  parameter  for  x-polarized 
feed. 

(I) 

CY 

(Cy> 

Polarization  parameter  for  y-polarized 
feed. 

(I) 

EIP 

<e;  > 

Y 

PHI  component  of  the  electric  field  in 
the  feed  coordinate  system. 

EIT 

CEe  ) 

a 

THETA  component  of  the  electric  field 
in  the  reflector  coordinate  system. 

FX 

(fx) 

x-polarized  feed  pattern. 

FY 

(fy) 

y-polarized  feed  pattern. 

GF 

( 9f ) 

Feed  pattern  value  calculated  by  sub¬ 
routine  FEED 

(I) 

PHASE 

Us) 

Phase  of  feed  pattern 

CODE 

LISTING 

1  SUBROUTINE  FPOLC  El  X, El Y, El Z, PSA, PHI ) 

2  COMPLEX  CJ,EIX,EIY,EIZ,EIP,FIT,PFASE,FX,FY,CX,CY 

2  COMPLEX  TEMP 

4  COMMON  /PIS/PI  ,TPI  , OPR 

b  COMMON  /COMP/CX,CY,GF,PHP,  PHQ,KX,KY,  ISYM,SINT, COST 

o  CO  MMON/VEST/  LI)  EBUG ,  LTEST  ,NTEST 

7  LOGICAL  LDEBUG, LTEST 

8  CJ=(0.,l.) 

V  PS I  =  PS  A 

10  IF  (NTHST.GT.49)  WRITE  (6,1)  PSI ,  PHI ,  SINT, COST 

11  I  FORMAT  ( /T 10', 'DEBUGGING  FPOL  SUBROUTINE'  ,/Tl  5, 4FI0. 3  ) 

12  IF  ( ABS ( PS  I - V0 . ) . LT . 0 . 000 1 )  PSI=89.9 

13  PSIR=PSI /OPR 

14  PHIR=PHI /OPR 

lb  SINS=SIN( PSI R) 

16  COSS=COS(PSIR) 

17  SI NP=SIf (PHI R) 

18  COSP=COi ( PHI R) 

IV  PHASF=( I . ,0. ) 

20  IF  (ISYM.OF.P)  GO  TO  8 

2  1  I F  ( I SYM+2  )  4,2,0 
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RhL=SINP/AP$(3INP> 

PHASH=REL+CJ*0. 

go  lo  a 

REL=COSP/ARS(COSP) 

PH  A  SH=  RE  L+CJ  *n . 

GO  TO  8 

PHASH=CEXP(CJ*PHIR ) 

FX=C  X*PH/SE>GF 
FY=CY*PHASE*CF 
EIX=(0. ,0. ) 

E I Y  =  ( 0 . ,  0 .  ) 

EIZ=<0. ) 

EIT=(0. ,0.  ) 

HI P=(0. ,0. ) 

IF  (KX.EO.0)  GO  TO  10 

EIT=-COSP*FX 

HI P=-SI F  P*FX 

IF  (KY.HO.O)  GO  TO  20 

El T= HIT-SI NP*FY 

EIP=EIP+COSP*FY 

CONTINUE 

El X=-C0SP*C0SS*EI7-SINP*EI P 
EIY=-SINP*COSS*EIT+COSP*ElP 
EIZ=-SINS*En 

IF  ( SINT. LT. 0.01  )  GO  TO  2b 
THMP=C0ST*EI Y-3I nt*e IZ 
EIZ=SINT*EIY+COST*EIZ 
El Y=TEMP 
CONTINUE 

IF  (NTEn.EO.tf)  GO  TO  40 

WRITE  (6,30)  PSI .PHI ,EIX,EIY,EIZ 

FORMAT  <  /T 1 0 , '  PS  A  ,F8. 2, SX , ' PKGAM 

RETURN 

END 


*',FR.2,/3(T10,2F10.  4,/)) 
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FUNCTION  FRNELS 
PURPOSE 

To  compute  the  Fresnel  integral, 
xs  2 

f(xs)  =  /  e_^7l/2  u  du  =  C(xs)  -  j  S(xs). 
o 


METHOD 


The  integral  is  evaluated  using  an  approximation  by  J.  Boersma[8]. 
The  integral 


x  -it 

f ( x )  =  /  -§ -  dt 

o  /2n  t 

is  approximated  as  follows: 

for  0±x<4  f(x)=fc"jx</j  l  (an+jb  )  (I) 

for  x>4  f(x)  =  +  e-jx  JjT  Ur+jdn)  (x) 

(the  constants  an,  bn,  cn  and  dn  are  provided  by  Boresma  and  are  defined 
in  data  statements  in  the  subroutine). 

Note  that  by  performing  a  change  of  variable,  the  integral  to  be 
solved  becomes  of  the  form  of  the  integral  which  Boersma  solved; 


t 


u 


2 


By  applying  this  change  of  variable,  we  get 


xs  -j  1  u^ 
f(xs)  =  /  e  ^  du 
o 


x 

/ 


0 


dt 


where  x  =  L  x^. 

2  s 
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FLOW  DIAGRAM 


KEY  VARIABLE 
A  ' 

B 

CC 
D  ' 

FI 

FR 


Constants  used  In  evaluating  integral 


Imaginary  component  of  summation  function 
Real  component  of  summation  function 
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CODE  LISTING 


1 

2 
j 

4 

5 
o 
/ 

« 

y 

I  k9 
I  I 
12 
1 J 

14 

15 
lo 
I  / 
lb 
ly 
20 
21 
22 
2b 

24 

25 
2o 
2*/ 

20 

29 

oH 

b  I  10 

32  20 
«_/ 

24 

b5 

JO  J0 
-  / 

Jh 
_  V 
4k 

4  1  ai; 
^  Lw 
42 
44 
<ii> 

4o  t*) 
4  / 


SUHkOUTl NE  FRNELS(C,S, XS ) 
t  !  M 

C ! ! !  THIS  IS  THb  FRESNEL  INTEGRAL  SUBROUTINE  WHERE  THE  INTEGRAL  IS  FROM 
CIS!  U=0  TO  XS,  THE  INTEGRAND  IS  EXP( -J*PI/2.*U*U ) , AND  THE  OUTPUT  IS 
CM!  C(XS)-J*S(XE) . 

(jijj 

LOGICAL  LDELUG,LTEST 

COMM  ON  /T  EST/LI)  t  HI  IG  ,  LTF.  ST,  NTE  ST 

COMMON/PIS/PI  ,TP1 ,1)PR 

COMA  ON  /OUY/NW 

DIMENSION  A(  12  ),l  (  12  ),0C(I2)  .()<  12) 

DAT/  A/ 1 . o  9570  9 1 4  fl , -  0.  00000  1 702  ,  -6 .  80856  8854  ,-0.  000 5 76 36  1 , 6 . 92 06 9 1 
6902, -0.0 1  6F98  65'/  ,-2.050485660,-0.0757524  1  9,  O.R50O637R  I  ,-0.025*3904 
A  I ,-0. 150230900,0.034404  779/ 

DATA  b/-U . 0t  0000033 , 4 . 255387 524 , -0 . 0O0092R 10,-7. 780020400.-0 . 0OV52 
A0895 , 5 . 075  1 6 1  298 , -0 . 1 38 24 1 y  4 7 , - | . 36 372 9  1 2 4 , -0 . 40334 92 76 , 0 . 7 02 2220 1 
AO, -0.2 10195929,0.01 954703 1/ 

DATA  CC/O. ,-0.024933975, 0.000003936, O.OO577O956,O.OO0689P92,-0.OO9 
A4  97 136,0.01  1 94R809, -0.006 74 8873  ,0.000246420, 0.0*2 1 02967 ,-0. 00 1 2 1 79 
A3  0 , 0 . 0002  3393  9/ 

DATA  D/0.  W947  I  I  40 ,1). 0000.00023  ,-0. 00935 1  34  1 , 0. 000  123006, 0.  00485  1  46 
Ac  , 0 . 00 1  90 32  18 ,— 0. 0  1  7 1  229 1 4 , 0.07 9064067 ,  -0 . 02792 P  / 55,0  .0  1 0497308  .-0 

A. 0055985  I  5,0.000838386/ 
iF(XS.Lh.O.O)  CO  10  414 

x=xs 

x  =  PI *X*X/2 .0 
FH=0 .O 
FI =0.0 
.<=13 

I F ( X-4 .0 )  10,40,40 

Y=X/ 4.0 
K=K-  I 

FR=( FK+/ (K ) )*Y 
F I  =  ( F I +1  (K  >  )*Y 
IFTK-2)  3 0,30,20 
Fk=F  N+A(  I  ) 
r I =F I  +  P.(  1  ) 

C=  ( F k*COT (  X )  +F‘  I* SI  D (  X )  )*SORT ( Y ) 

S=(FH*S1N( X)-FI*COS( X) )*S0RT(Y) 

GO  10  1 
Y=4.0/X 
K=K-1 

Fk=(FR+CC(K) )*Y 
FI  =  (FI  ♦!)(<  ))*r 
IFIK-2)  60,60,50 
rh=Fk+CC ( 1 ) 

FI=r I+D( 1 ) 
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4b 

OO.b-Mhk*COS< X)+hI*SIN( X) )*SnkT<Y) 

4V 

S*4».b+<Hi*SIN<  X)-hI*C05<  X)  )*SO!.T(  Y) 

bid 

go  to  i 

bl 

414 

o-n.n 

b2 

S=-U.t> 

bJ 

1 

lb  (  .flO'i  .LThST )  GO  TO  2 

b4 

Hilih  (Mr;, 3) 

bb 

j 

hONMAT  (/,'  Th STING  FRNFLS  SUHkOUTI 

bO 

>>i< I Ti-  (N*,->  C,S,XS 

b*/ 

WfcTUim 

bH 

hill) 
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SUBROUTINE  GEOM 
PURPOSE 

To  approximate  the  reflector  rim  by  straight  segments  and  to 
calculate  the  unit  vectors  for  each  segment.  Also  the  permissible 
range  for  the  diffraction  angle  e0  for  each  rim  segment  is  determined. 


SECTION 

Figure  1.  Illustration  of  subdivision  of  a  reflector 
rim  into  straight  segments 


A 

P 


Figure  2.  Unit  vectors  associated  with 
the  reflector  rim. 
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I 


Figure  3.  Geometry  for  determining  diffraction 
angle  range. 


METHOD 


a).  Subdividing  the  reflector  rim  into  straight  segments 

To  ensure  the  focus  of  the  parabola  lies  in  the  far  field  of  the 
reflector  rim,  the  section  of  the  reflector  rim  between  each  pair  of 
input  rim  points  RIMuj:  and  RIMne+j  is  subdivided  into  K  straight  seg¬ 
ments.  The  Integer  k is  obtained  by  the  formula 

„  i  *  t  DL 

K  Int  '  RIML  +  1 

v 

where  DL  is  the  length  of  the  projected  rim  section  on  the  aperture 
plane  and  RIML  is  the  approximate  length  of  a  straight  segment  which 
is  defined  in  the  main  program. 

The  coordinates  of  the  new  rim  points,  as  shown  in  Fig.  1,  are  calcu¬ 
lated  by 


X(ME+L,N)  =  RIM(NE,N)  ♦  L  x  DEL(N) 
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where 


L= I -1 ,  1*1,2, - K  is  the  number  of  segments  in  rim  section  NE 

DEL(N)  is  the  length  of  each  rim  segment  and 

N=1 ,2  representing  the  X  and  Y  components  respectively. 

The  Z  coordinate  of  the  rim  point  HE  is  given  by 

x(me,3)  =  .  z. 

where  F  is  the  focal  distance  and  V  is  the  coordinate  of  the  vertex 
of  the  parabolic  reflector. 


b).  The  unit  vectors 

The  edge  unit  vectors  are  found  by 

-  V  =  *HE+1~*ME 

HE  l%+r%l 

The  unit  normals  are  determined  by  considering  that  the  normal  vector 
of  each  rim  edge  is  also  normal  to  the  parabolic  surface  for  the  limit 
ing  case.  Since  the  diffraction  point  is  not  determined  until  all  the 
unit  vectors  of  that  edge  are  found,  the  normal  at  the  midpoint  of  an 
edge  is  used  to  approximate  that  at  the  diffraction  point.  Thus,  as 
shown  in  Fig.  2 

VNjkje  =  -  p  sin  ^  +  z  cos  £ 


where 


p  *  x  cos$  +  y  sin$ 


Note  that  *  and  $  are  the  spherical  coordinates  of  the  midpoint  with 
respect  to  the  source  point  X$  and  are  given  by 
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and 


The  unit  bi normals  are  obtained  by 
VPME  -  V%  X  % 

c).  The  permissible  range  for  the  diffraction  angle. 

The  law  of  diffraction  dictates  that  diffraction  from  a  plate 
edge  is  possible  when 


cose2  <_  cosb0  1  cosB1  , 


where  e0  is  the  angle  that  the  incident  and  diffracted  rays  make  with 
the  edge  (see  Fig.  3).  and  82  are  diffraction  angle  limits  and  are 
defined  in  terms  of  their  cosines  as: 

A  A 

BD(ME,1 )  =  cos$i  =  VIj-V 
BD(ME,2)  =  cose2  *  VI2*V 


where 

A  X  -X 
VI,  = 

I XHE”XS I 


Jr  =  XHE+1~XS 
2  I^ME+l  XSI 
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FLOW  DIAGRAM 


GEOM(NRIM,RIML,RIM) 

INPUT  VARIABLES 

NRIM 

Number  of  input  rim  points 

RIML 

Maximum  length  of  straight  rim  segments 

RIM 

Coordinates  of  input  rim  points 

(a) 


Loop  through  the  rim  points  X 
ME=1 ,  MRIM 


Loop  through  both  segments  common 
to  rim  point  ME,  J=1 ,2 


Calculate  the  bounds  on  the  permissible 
range  for  the  diffraction  angle  by  taking 
the  dot  product  of  unit  vectors  VIC  and  V 
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KEY  VARIABLES 


INPUT 

OUTPU 


BO 

Bounds  for  diffraction  angle 

DEL 

x  and  y  components  of  the  subdivided 
segment  length 

DL 

Projected  rim  segment 

DSQ 

Square  of  DL 

K 

Number  of  straight  segments  into  which 
an  input  rim  section  is  subdivided 

ME 

Loop  index  of  subdivided  rim  points  X 

MRIM 

Total  number  of  subdivided  rim  points 

NE 

Loop  index  of  input  rim  points  RIM 

NRIM 

Number  of  input  rim  points 

PH  I  PR 

(♦) 

PHI  coordinate  angle  of  the  midpoint  XM 
with  respect  to  the  source  point  in  radians 

PSIR 

(*) 

THETA  coordinate  angle  of  the  midpoint  XM 
with  respect  to  the  source  point  in  radians 

RMC 

Incident  ray  path  length  at  the  corner 

RMM 

Incident  ray  path  length  at  the  midpoint 

XM  of  a  straight  edge 

THNR 

(!) 

Half  angle  of  PSIR 

V 

X,  Y  and  Z  components  of  the  edge  unit  vector 

VIC 

Stored  X,  Y  and  Z  components  of  the  incident 
ray  vector  at  the  corner  for  all  edges 

VIM 

X,  Y  and  Z  components  of  the  incident  ray 
vector  at  the  midpoint 

VN 

X,  Y  and  Z  components  of  the  unit  normal 
vector 

VP 

X»  Y  and  Z  components  of  the  unit  binormal 

vector 


(0) 


(I) 


(0) 


(0) 

(0) 


(0) 

(0) 


X 

Coordinates  of  the  new  rim  point  ME 

(0) 

XM 

Coordinates  of  the  midpoint  of  edge  ME 

ZOP 

Z-coordinate  of  the  vertex  of  the 
parabolic  reflector 

(I) 

CODE  LISTING 


1  SUBROUTINE  GEOM( NRIM ,R IML,RI M) 

2  C 

3  DIMENSION  RI  M( 67 ,2 ) ,  VI  ( 3 ) , VI M( 67 ,3 ) , RMM( 67) , DEL( 2 ) 

4  LOGICAL  LDEBUG.LTEST 

b  .  COMMON  /GEOMl/X(67,3),V(67,3),MRIM 

o  COMMON  /GEOM2/VP (67, 3) ,VN(67,3),BD(67,2) ,VMAG( 67 ) , RMC( 67 ) , 

7  2VIC(67,3),XM(67,3) 

B  COMMON  /HOCAL/F, ZOP 

V  COMMON  /DIM/MDRIM 

ID  COMMON  /SORI  NF/XS(  3) 

11  COMMON  /PI  S/PI,  TPI,  DPR 

12  COMMON  /OUT/MW 

13  COMMON  /TEST/LD£BUG,LTEST,NTEST 

14  IF  (LDEfcUG)  MITE  (NW.2) 

lb  2  FORMAT  (/Tb, 'DEBUGGI NG  SUBROUTINE  GEOM',//) 

16  C 

17  C  ***  APPROXIMATE  THE  CURVE  EDGES  BY  LINE  SEGMENTS  ★** 

18  C 

IV  ME=0 

20  DO  22  NE=I ,NRIM 

21  NEP=NE+ 1 

22  IF  (NE.LO.NRIM)  NEP=1 

23  DSQ=0. 

24  DO  5  N=  I  ,2 

2b  XX=R IM( NEP  ,N  )-RI  M(  NE,N) 

26  b  DSO=  DSO+  X  X  **  2 

27  DL=SORT(DSO) 

2b  K=DL/RIML+ I 

2V  IF  (RIML.LE.O)  K=) 

30  IF  ( LDELUG)  VRITE  (6,8)  NE,DL,RIML,K 

31  8  FORMAT  (/T10,4HNE  *, I2,5X,4HDL  =  ,2F8 .2 ,5X, 3HK  =,I2,/> 

32  DO  10  N* 1,2 

33  10  DEL(N)=(RIM(NEP,N)-RIM(NE,N))/K 

34  DO  20  1*1, K 

3b  L= I —  1 

36  MEaME+1 

37  IF  (ME.GT.MDRIM)  GO  TO  50 

38  DO  15  N* 1,2 

3 V  15  X(ME,N)=RIM(NE,N)+L*DEL(N) 

40  X(ME, 3  )  =  ( X (ME, I )**2+X(ME,2 )**2 >/(4.*F)-ZOP 


4  i 

IF  (LUFbUG)  WRITE  (6,18)  ME, (X(ME,N> ,N=I ,3 ) 

42 

18 

FORMAT  ( I I5.6FI0.3) 

43 

20 

CONTINUE 

44 

22 

CONTINUE 

46 

MRIM=MH 

46 

C 

47 

C  i  ! ! 

DETERMINATION  OF  EDGE  UNIT  VECTORS 

48 

c 

4  V 

MEX=MRIM 

60 

DO  38  ME=I ,MEX 

61 

MME=MF> 1 

62 

IF(MME.CT.MEX)  MME=1 

63 

VM=0. 

64 

VMM=0. 

66 

VMC=0. 

66 

DO  25  N= ] , 3 

67 

V(ME,N)=X(MMH,N)-X(ME,N) 

68 

XM(ME,N)  =  (X(  I/ME,N)  +  X(ME.r! )  )/2. 

6V 

VIM(ME,N)=XM(ME,N)-XS(N) 

60 

V I C ( ME , N ) =X ( M  E ,  N  )-XS(N) 

61 

VMM= VMM+  V I M  ( f ■!  E ,  M  )  *  V 1 tt  ( M  F ,  N  ) 

62 

VMC=VMC+VIC(  A r? , M  )*VIC( ME ,N  ) 

o3 

26 

VM=V  M+  V ( ME , N ) * V ( ME , N ) 

04 

VMAG(ME) =SQRT( VM ) 

66 

RMM(ME)=SQHT( VMM ) 

06 

RMC  (  ME )  =  SO  RT  ( V  MC  ) 

07 

28 

FORMAT  (T10.2F12.4) 

68 

IF  (L DEbUG)  WRITE  (MV,  30)  ME 

OV 

30 

FORMAT  (/T0.4UME  =, I 2 , 4X ,3HV IM ,7X, 3HVI C, /) 

70 

DO  32  N=  1 , 3 

7  1 

V I M  ( ME ,  N )  =  V I U  ( ME  ,  N  )  /  RM  M  ( M  E ) 

72 

IF  (LDEFUG)  WRITE  (Ni'.',2H)  V I  M(  ME  ,N  ) ,  VI  C(  ME  ,N  ) 

7  3 

32 

V(  ME  ,N  )=V  (  MF  ,N )/VMAG(ME) 

7  4 

C 

78 

C 

*****  CALCULATE  THE  NORMAL  VECTORS  OF  THE  EDGES  *** 

7o 

C 

7  7 

PSI R=BTAN2 (SORT( VI M(ME, 1 )**2+V I M ( ME, 2 ) **2 ) ,-VI ?.'( ME ,3 ) ) 

78 

PHI  PR=BTAN2  ( V I  M(  ME, 2  ) ,  V I  M(  ME ,  1  ) ) 

7V 

PSI=PSIR*DPR 

80 

PHI P=PHI PR*DPR 

81 

SINPP=SIM( PH  I  PR) 

82 

COSPP=COS( PH I PR) 

bo 

THNR=PSI R/2. 

84 

SI NR=SIN(THNR) 

86 

COSR=COS(THNR) 

80 

VN (ME,  1  )  =-SI  NR*C()SPP 

87 

VN(ME,2  )=-SIflR*SlNI,P 

88 

V  N  ( M  E  ,  3  )  =C  OS  R 

8  V 

VNM=0. 

V0 

DO  34  N- 1 ,  ) 

V  1 

VN M*  VN  M+ VN  (MI,  N  )  *V  N  (  Ml. ,  N  ) 

V2 

VNM=3QRT(VfV,  ) 

14S 


DO  3  b  N=  I  ,  3 
VN(ML,N)=VN(  n>/vi.t 


V3 

<y±  Ob 
Vb  L 

VO  (-'!!!  DETEHMILAi ION  OF  OMIT  VECTOR  FOR  HAY  FIXED  COORDINATE  SYST 
V7  c 

Vb  VP  (  Mh ,  I  )=VN(  ML  ,2  )*Y  (  “F  ,3  ) — Vf !  (ME, 3)*V  (  ",L,  2  ) 

W  VP  (ML  ,2  )=VN ( ML  ,3  )* V ( ML ,  I  )-VN(.ME,  l)*V(.'«E#3) 


1  CO 

VP  (ML,  3 )  =VN(  ML,  1  )*  V  (  ML, 2  )  —  Vf!  ( l'E,  2  >*V  (OF ,  1  ) 

Ic  1 

IL  (LDLBUG)  lVHITL(Niv,3o)  ( V ( ME ,N  ) , VN (  IL , N ) . V P( ME , N > , 

102 

2N= 1 ,3) 

1 03 

3o 

FORMAT  <  T 1 0, 3F 12.4) 

1  04 

IL  (LDELUG)  If  R ITE  (NKV37)  RMM(  ME  ) , RMC(  ME  ) 

1  Ob 

o7 

FORMAT  (/TlM.bHRMM  » ,F7. 3, bX .bilRM.C  =,F 7.3,/) 

106 

3b 

CONTINUE 

10'/ 

0 

I0H 

(JIM 

DETERMINATION  OF  PERMISSAPLE  RANGE  FOR  DIFFRACTION  ANGLE 

10V 

c 

1  10 

DO  4b  ME=I ,MEX 

1  1  I 

VrtH-tf. 

112 

DO  40  N= 1 , 3 

113 

VI (N )=X( ME ,N )-XS(N ) 

1  14 

40 

vmf:=vmh+vi  (N)*vi  (N) 

lib 

RME=SQRT( VME ) 

116 

DO  41  J= 1 , 2 

1  1  7 

MJ=ML>  1-J 

1  lb 

IF(MJ.LO.O)  M J  =M EX 

1  IV 

BL)  ( M  J ,  J  )  =0 . 

120 

DO  4  1  f  1=  1 , 3 

12  1 

4  1 

BD  ( M J ,  J )  =B I )  ( M  J  ,  J  ) + V  ( M J  , N  )  * V I  ( N  )  / RM  E 

122 

4b 

CONTINUE 

123 

RETURN 

124 

b0 

MHIM*MK 

12b 

RETURN 

126 

END 

147 


SUBROUTINE  GRID 
PURPOSE 

To  set  up  a  rotated  coordinate  system  such  that  the  aperture 
integration  for  far  field  results  can  be  carried  out  efficiently.  This 
subroutine  is  also  used  to  set  up  the  principal  grid  which  is  used  for 
aperture  field  calculations  and  aperture  integration  for  near  field 
results. 


Figure  1.  Rotated  grid. 


.X 

x 


Figure  2.  Coordinate  transformation  from  principal 
rectangular  grid  to  rotated  grid. 


METHOD 


The  rotating  grid  method  sets  up  a  nonorthogonal  rotating  grid 
as  shown  in  Fig.  1  by  rotating  the  principal  Y-axis  with  <j>  such  that 
the  y-integrations  are  independent  of  0.  Consequently,  the  far  field 
pattern  in  the  plane  perpendicular  to  the  y-axis  is  reduced  to  a  one¬ 
dimensional  integration. 

The  coordinate  transformation  from  the  principal  rectangular 
grid  (X,Y)  to  the  rotated  grid  is  shown  in  Fig.  2  and  is  given  by 

x  =  X  +  Y  tan# 


and 


y  =  Y/cos#. 

The  rotated  grid  sizes  are  expressed  by 

dx  =  DX 
dy  =  Dy/cos#. 

Note  that  the  rotated  grid  size  dy  becomes  quite  large  if  the 
rotated  angle  is  close  to  90°.  This  may  affect  the  accuracy  of  the 
result.  Consequently,  the  rotated  angle  is  restricted  to  be  not 
greater  than  45°.  Thus,  for  PHI  cuts  in  the  interval  (45°, 135°),  the 
x-axis  is  effectively  rotated  instead  of  the  y-axis.  This  is  done 
indirectly  in  the  code  by  transforming  rim  points  such  that  the  x-  and 
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y -coordinates  of  the  rim  points  are  interchanged  and  the  indices  are 
adjusted  to  stay  in  a  counterclockwise  order.  Then  the  new  y-axis 
is  rotated  by  an  angle  90° which  is  less  than  45°.  For  PHI  cuts  in 
the  other  quadrants,  a  similar  procedure  is  followed.  To  implement  the 
interchange,  two  integer  parameters  related  to  the  quadrants  are  used. 
These  parameters  are  defined  as 

KqUAD  =  Integ.  (*++45°)/90° 
and 

LQUAD  =  Integ.  Kqu^q/2 

where  4  is  the  positive  angle  expression  for  4  i.e.,  0<4<360°.  Then 
the  interchange  parameter,  given  by 

CHG  =  (-1)Kquad 

is  defined  in  such  a  way  that  a  rim  point  transformation  takes  place 
when  CHG<0.  Note  that  the  rotated  grid  sizes  are  also  interchanged 
when  CHG<0,  i.e., 

dx  =  Dy 

dy  =  DX/COS<J> 

y  a  lues  assigned  to  Kq^q  and  CHG  are  shown  in  Fig.  3. 

In  order  to  maintain  the  correct  aperture  distribution  over  the 
transformed  antenna  aperture,  the  array  of  the  aperture  fields  is 
transposed  at  the  same  time  as  an  interchange  of  the  x-  and  y-coordi- 
nates  of  the  rim  points. 

Note  that  the  parameter  Lquaq  is  used  to  correct  the  sign  of  the 
phase  path  of  the  x-integration.  The  phase  variable  associated  with 
lQUAD  1s  9iven  by 

PG  =  kdx|cos*|(-l)LQUAD 


In  setting  up  the  rotated  grid  the  coordinates  of  each  rim  point 
Pl  are  first  transformed  to  rotated  grid  coordinates  (x^.y^).  Then 
the  reflector  rim  is  separated  into  upper  and  lower  rim  sections  by 
finding  the  rim  points  where  x  is  minimum  and  maximum,  respectively. 
Furthermore,  the  "vertical"  grid  lines  of  the  rotated  grid  system  are 
numbered  from  1=1  to  I_aJt  as  shown  in  Fig.  1.  The  index  of  the  origin 
(IC)  is  also  calculated  for  future  use  in  the  main  program. 


FLOW  DIAGRAM 


152 


153 


KEY  VARIABLES 


INPUT/ 

OUTPUT 


CHG 

Interchange  parameter 

CLRIM 

Coordinates  of  lower  rim  points 

CURIM 

Coordinates  of  upper  rim  points 

EA 

Aperture  Field  Array 

(I) 

GRDX 

W 

Rotated  horizontal  grid  size 

(0) 

GRDY 

(dy) 

Rotated  "vertical"  grid  size 

(0) 

GRIDX 

W 

Principal  horizontal  grid  size 

(I) 

GRIDY 

(dy) 

Principal  vertical  grid  size 

(I) 

IC 

Grid  index  of  the  origin 

I  MAX 

Maximum  grid  indes  of  "vertical"  grid  lines 
after  rotation 

KQUAD 

Integer  parameter  to  determine  if  an  inter¬ 
change  of  x-  and  y-coordinate  of  rim  points 
is  required 

LQUAD 

Integer  parameter  to  specify  the  sign  of  the 
phase  argument  for  x- integration 

MAX 

Index  of  the  rim  point  with  maximum  x-coordinate 

MIN 

Index  of  the  rim  point  with  minimum  x-coordinate 

NLRIM 

Number  of  lower  rim  points 

NRIM 

Number  of  input  rim  points 

NURIM 

Number  of  upper  rim  points 

PCHG 

Previous  value  of  CHG 

PG 

Variable  used  for  phase  argument 

(0) 

POS 

(♦+) 

Positive  angle  representation  for  PHI 

RIM 

Coordinates  of  input  rim  points 

(I) 

XMAX 

Maximum  x-coordinate  of  all  rotated  rim 
points 

(0) 
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XMIN 

Minimum  x-coordlnate  of  all 
points 

rotated 

rim 

(0) 

YMAX 

Maximum  y-coordi nates  of  all 
points 

rotated 

rim 

(0) 

YMIN 

Minimum  y-coordi nates  of  all 
points 

rotated 

rim 

(0) 

CODE  LISTING 


1  SUBROUTINE  GRI D( PHI , IC, I  MAX) 

2  DIMENSION  RIM(  67 ,2 ) , CP (67, 2 )  ,CLRIM(67,2)  ,CURIM(67,2)  ,M IN (2 ) , MAX( 2 
) 

3  COMPLEX  CJ, DUMMY, EA(2, 5(1,50) 

4  LOGICAL  LDEBUG,LTEST 

5  COMMON  /GRID 1/GRIDX, GRI DY,EA 

6  COMMON  /GRID2/CJ,CLRIM,CURIM,RIM,PG,XMIN,XMAX,YMIN,YMAX, 

7  2NLRIM,NURIM,GRDX,GRDY#AC0SP,TANP,PCHG,MAX0,NRIM 
COMMON  /TEST/LDEBUG, LTEST, NTFST 
COMMON  /PI  S/PI  ,TPI  ,DPR 
COMMON  /OUT/NW 
DATA  DEL/0.01/ 

IF  (LTEST)  WRITE  (NW,3) 

3  H OHM  AT  (/T5, 'TESTING  SUBROUTINE  GRID',//) 

DO  1  K=1,NRIM 
CP(K, I )®RIM(K, I ) 

CP(K,2)=RIM(K,2) 

1  CONTINUE 
GRDX=GRIDX 
GRf)Y=GRIDY 
SIGN- I . 

P()S=PHI 

IF  (PMI.GE.0.)  GO  TO  2 
SI GN=- 1 . 

POS*PHI«-360. 

2  KQUAD»(P0S*45. )/90. 

LOU AP«KOU A P/2 
CHG=  ( - 1 .  )**KQUAD 
IF  (CIIG.GT .0 . )  GO  TO  6 
DO  4  K-l ,NRIM 
KP=NRIM+I-K 
CP(K, l)«RIM(KP,2) 

CP(K,2)-RIM(KP, I  ) 

4  CONTINUE 

34  TEMG-GRDY 

35  GHDY-GRDX 

3o  GRDX-TEMG 
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6 


57  18 
/) 

58  C 
5V  C 
60  C 
Cl 
02 

63 

64  269 
0  0 

CO 

07 

6b 

ov 
7o 
7  i 
72 
72 
7  4 
lb 

76  2 1 

7  7 
7  b 

7  ^ 

80 

bl  22 
82 

83 

84 

8b  24 
86 

8  7  28 


Ir  (PHI. GT. ISM.)  PHI=PHI-360. 

PHI=SI0N*<  90.-AbS(  PHI ) ) 

IF  (PCHG*CHG.GT.0.  )  CO  TO  12 
M'i  =MAXO-  I 
DO  11  NI=1,2 
DO  10  K= 1 #MT 
IT=K+ I 

DO  10  JT=I ,  K 
DUMMY*Ea(NI ,JT,IT) 

EA(NI,J”I,IT)=EA(NI ,IT,JT) 

EA(NI, I1,JT)=DUMMY 

CONTINUE 

CONTINUE 

PHIR=PHI/DPR 

ACOSP=ABS(COS( PH IR ) ) 

TANP=TAN(PHIR) 

GRDY  *GRl)Y/ ACOSP 

PG=2.*PI*ABS<AC0SP)*GRDX*(-1  )**LOUAD 
PCHG=CHG 

IF  (LTEST)  WRITE  (NW,I8)  GRDX.GRDY 

FORMAT  ( T I 0.7HGRDX  =  ,  F5 .2 , 5X,  7HGRDY  =  .F5.2,'  WAVELENGTHS' , 


★  COORDINATE  TRANSFORMATION  ★ 

DO  20  K= I , NRTM 

CP(K,I)-CP(K,I )+CP(K,2)*TANP 
CP( K ,2 )=CP (K  ,2 ) /ACOSP 
CONTINUE 

CP( NRI M+ 1 1 1 )=CP(  1,1) 

CPCNRI M+  1 , 2 ) =CP( 1.2) 

CPCIRIM+2,  I  )  =CP (2,1) 

CP (NRIM+2 ,2 )=CP( 2 ,2) 

MX=0 
MN=0 
I  N=  I 

NI)=NRI  M 

IF  (CP(2, 1  ).NE.CP( 1,1))  GO  TO  21 
I  N=2 

ND=NRI M+ 1 
DO  25  I*IN,ND 

dxi=cp<i+i  ,n-cpu ,  n 

DX2**CP( I+2 , 1 )-CP(I+J ,1  ) 

IF  (ABS(DXl) .LT. 0.MI .OR. ABS(DX2) .LT. 0.01 )  GO  TO  22 

IF  ( DX 1*DX2.GT .0 . )  GO  TO  25 

IF  (DXI.GT.DX2)  GO  TO  24 

MN*MN+ I 

M I N  (  MN )  *  I  ♦  I 

GO  TO  25 

MX*MX+ I 

MAX(MX)«I+I 

CONTINUE 
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bfi 

(. 

e9 

C 

★FIND  UPPER  AND  LOWER  RIM  POINT  SETS* 

90 

C 

V  1 

IF  (MN  .EG.  1)  MIN(2)=MIN( 1 ) 

92 

IF  (MX  .EQ.  1)  MAX (2 )=MAX( l ) 

93 

NLRI M=MAX( 1 ) -M I N ( 2 ) ♦ 1 

94 

IF  (NLRIM  .LE.  0)  NLRI M=NLRI M+NR IM 

9b 

NURIM  =MIN(  1  )-MAX(2)  +  l 

96 

IF  (NURIM  .LE.  0)  NURI M=NURI M+NR IM 

97 

DO  30  K=l, NLRIM 

9b 

I=MIN(2)+K-I 

99 

IF  (I  .GT.  NRIM)  I =1 -NRI M 

100 

CLRI M(K, 1  )=CP( 1,1) 

10  1 

CLRIM(K ,2 ) =CP( 1,2) 

102 

30 

CONTINUE 

103 

DO  32  K=l, NURIM 

1 04 

I=MIN( 1 )-K+I 

10b 

IF  (I  .LE.  0)  1= I+NRIM 

I  00 

CURI  M(K ,  1  )  =CP(  1 ,  1 ) 

107 

CURI M(K ,2) =CP( 1,2) 

108 

32 

CONTINUE 

109 

IF  (  .NOT.LTEST)  GO  TO  38 

I  1  0 

WRITE  (NW, 35) 

1 1  1 

3b 

FORMAT  (//T10, SLOWER  RIM  POINT  COORDINATES',//) 

1  12 

WRITE  (NW,33 )  (K , (CLRIM( K, I ) ,1  =  1 ,2 ) ,K= 1 ,NLRI  M) 

113 

WRITE  (NW, 37 ) 

1  1  4 

37 

FORMAT  ( //Tl 0, 'UPPER  RIM  POINT  COORDINATES',//) 

lib 

WRITE  (NW.33)  (K,(CURIM(K, I ) ,1=1 ,2 ) ,K= 1 .NURIM) 

1  lo 

23 

FORMAT  (20(T10,I5,2FI0.2,/)> 

117 

38 

CONTINUE 

118 

GR  SO  =GRD  X*GR  DY 

119 

YMIN=CLRIM( 1 ,2) 

120 

YMAX=CURIM  ( 1  ,2) 

12  1 

N 1 =NLRIM- 1 

122 

DO  40  K= 1 , N1 

123 

YLKP=CLRIM (K+l ,2) 

124 

YUKP=CUkIM (K+l ,2 ) 

12b 

IF  (YUKP.GT.YMAX)  YMAX=YUKP 

12o 

IF  ( YLKP.LT.YMIN)  YMIN*YLKP 

127 

40 

CONTINUE 

128 

XMIN=CLRIM (1,1 ) 

129 

XMAX  =CLRIM( NLRIM , 1 ) 

130 

F I C*-XM I N/GRDX+DEL 

121 

IC=F  IC+  1 

132 

IF  (FIC.LT.-I .)  IC-IC-1 

123 

F I =XMAX/GRDX+DEL 

134 

IMAX=FI+IC 

13b 

IF  (LTEST)  WRITE  (NW.50)  XMIN.XMAX.YMIN, YMAX 

136 

b0 

FORMAT  (T5.6HXMIN  =,FI0. 3,5X,6HXMAX  », FI 0.3,/T5,6HYMIN 

137 

2F I  0.3, 5X,6HYMAX  *,F10.3,/) 

1 3b 

RETURN 

139 

END 
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SUBROUTINE  GTD 


PURPOSE 

To  use  the  Geonetrical  Theory  of  Diffraction  (GTD)  to  calculate 
the  edge,  corner  and  slope  diffraction  fields  in  the  wide  angle  side- 
lobe  and  backlobe  regions  for  the  reflector  antenna  patterns.  For  near 
field  calculations,  GTD  is  sometimes  used  for  the  whole  region  including 
the  near  axis  region  if  the  near  field  points  are  close  to  the  aperture. 


METHOD 


This  subroutine  calculates  and  sums  the  diffracted  field  contri¬ 
bution  for  each  rim  segment.  If  the  contribution  for  a  rim  segment  is 
expected  to  be  negligible,  the  subroutine  skips  to  the  next  rim  segment 
without  further  calculation.  The  subroutine  uses  BDLOW  and  BDHI  for 
this  test  as  discussed  below.  To  determine  if  the  diffraction  from  rim 
segment  ME  is  significant,  the  cosine  of  the  diffracted  cone  angle  Bp 
is  calculated  by  taking  $he  dot  product  of  the  edge  unit  V  and  the  dif¬ 
fracted  ray  unit  vector  d,  and  then  is  compared  with  the  upper  and  lower 
bounds  BDHI  and  BDLOW,  respectively,  of  the  diffracted  angle.  The  dif¬ 
fraction  contribution  from  rim  segment  ME  is  added  only  if 


BDLOW  <  DV  <  BDHI 


where 


DV  =  d-V  =  cossQ 


BDLOW  = 


BD(ME,1 ) 
BD(ME,1 )-0.5 


if  edge  diffraction  only 
if  comer  diffraction  included 


BDHI  = 


BD(ME,2) 
BD(ME ,2)+0.5 


if  edge  diffraction  only 
if  comer  diffraction  included 


and  BD  is  defined  and  calculated  in  subroutine  GEOM. 


Note  that  for  the  near  field,  the  unit  vector  d  is  approximated  for  this 
purpose  by  taking  the  midpoint  of  the  edge  instead  of  the  diffraction 
point  XD  which  is  calculated  next. 


If  the  contribution  from  the  rim  segment  is  significant,  the 
coordinates  of  the  diffraction  point  Xq  are  computed  by  calling  sub¬ 
routine  DFPTWD.  The  diffracted  ray  unit  vector  3  for  near  field  is 
recalculated  by  using  the  actual  diffraction  point  Xq  as 


d  = 


where  X^  is  the  near  field  point. 

If  the  diffraction  point  lies  on  the  rim  segment  as  shown  in  Fig.  la 
(LDIF=true),  both  edge  d-^ffraction  and  corner  diffraction  are  included 
and  the  incident  vector  VI  is  calculated  to  the  diffraction  point  XD. 

If  the  diffraction  point  does  not  lie  on  the  rim  segment  as  shown  in 
Fig.  lb  (LDIF=false) ,  there  ar^  only  contributions  from  corner  diffrac¬ 
tion  and  the  incident  vector  VI  is  calculated  to  the  nearest  corner. 


The  incident  and  diffraction ^angles  are  calculated  by  using  the 
orthogonal  unit  vectors  V,  VN  and  VP  of  the  rim  segment  ME.  These  unit 
vectors  are  computed  and  stored  by  subroutine  GEOM.  The  incident  and 
diffracted  PHI  angles*  are  given  by 


Note  that  the  diffracted  field  from  one  rim  segment  is  shadowed  by  the 
reflector  over  a  certain  range  of  0  as  shown  in  Fig.  2.  The  subroutine 
will  skip  to  the  next  rim  segment  if  e  falls  in  this  range,  i.e.,  if 

$>0  and  e>0fj 

where  eg  is  the  diffracted  shadow  boundary  angle  calculated  in  sub¬ 
routine  SBDY. 


♦Note  that  $  and  <j>'  are  used  in  this  section  for  the  wedge  diffraction 
angles  as  shown  in  Fig.  3a.  They  should  not  be  confused  with  the  phi 
coordinate  angles  PHI  and  PHIP  which  represent  the  field  point  and 
the  feed  observation  directions,  respectively. 
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(a) 

a)  Diffraction  point  inside  the  edge  (edge 
diffraction  +  corner  diffraction). 


(b) 


b)  Diffraction  point  outside  the  edge: 
(corner  diffraction  only). 


Figure 


Geometry 


for  edge  and  corner 


diffracted  fields 


0 


6 


/ 


Figure  2.  Geometry  for  diffracted  shadow  boundary 
for  rim  segment  ME. 


„  If  e  is  outside  this  shadow  region,  the  unit  vectors 
and  b0  of  the  ray  fixed  coordinate  system  are  calculated, 
vectors  are  defined  by 

^ '  =  -VP  sin</» 1  +  VN  cos<f> 1 

-  A  A 

4>  =  -  VP  sin$  +  VN  cos4> 

a  A  A 
Bg  =  4>  X  VI 


and 


80  =  ♦  x  d 


as  illustrated  in  Fig.  3. 


♦.  Bq 

These  unit 
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A  A 


(b) 

Figure  3a, b.  Geometry  for  three  dimensional 
diffraction  of  a  half  plane. 


To  determine  the  incident  field  at  the  diffraction  point  Xp,  the 
spherical  coordinate  angles  PSI  and  PHIP  corresponding  to  the  feed  pat¬ 
tern  direction  are  calculated.  Then  the  feed  pattern  value  incident  on 
the  diffraction  point  is  calculated  by  calling  the  subroutine  FEED. 

The  rectangular  components  Ej,  Ej  and  E|  of  the  feed  pattern  are  then 
calculated  in  the  subroutine  FPOL.  These  are  then  transformed  to  per¬ 
pendicular  and  parallel  components  E]  and  Ej,  in  the  ray  fixed  coordi¬ 
nate  system. 


Ib2 


For  slope  diffraction  the  slope  of  the  incident  field  at  the 
diffraction  point  Xq  is  used.  The  slope  of  the  incident  field  is 
calculated  from  two  adjacent  values  of  the  feed  pattern.  The  per¬ 
pendicular  and  parallel  components  of  the  slope  of  the  incident  field 

aE]/an  and  3E,t/3n  are  calculated  in  the  same  way  as  for  the  incident 
field  by  using  the  subroutine  FPOL. 

The  distance  parameters  L  and  the  spread  factors  A(S)  of  the  dif¬ 
fracted  fields  are  given  below. 

For  far  field 


L  =  S'  sin2e0 
and 

A(S)  =  /P 


For  near  field 


L  = 


S'S 

S+S' 


sin2B0 


and 


A(S)  Js{s+s') 

where 


3  =  sin-1 | dxV |  is  the  half  diffracted  cone  angle  (see  Fig.  3b) 

0  and 

S'  and  S  are  the  distances  from  the  diffraction  point  to  the 
source  point  and  the  field  point  respectively. 

For  corner  diffraction  as  shown  in  Fig.  4,  the  spread  factor  Aq(S)  =  i- 
has  the  form  of  a  spherical  wave,  since  the  corner  is  treated  as  a 
point  source  to  radiate  the  corner  diffracted  field.  The  distance 
parameter  is  given  by 
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Figure  4.  Geometry  for  corner  diffraction  problem 
for  near  field. 


Lc  =  Sc  for  far  field 

Sc'Ss 

LC  =  Sr+Sc  for  near 

V  J 

where  Sc  and  Ss  are  the  distances  from  the  corner  to  the  source  point 
and  the  field  point,  respectively. 

The  corner  diffracted  field  also  depends  on  the  corner  angles 
6C  and  eoc  (see  Fig.  4)  as  defined  by 

&c  =  cos"1 (V*VIC| 
and 

cos_1|d*V|  for  far  field 

-1 

cos  — -  for  near  field 


where  VI  is  the  incident  ray  unit  vector  at  the  corner  Xyc,  and  is 
calculated  in  subroutine  GEOM. 

Two  variables  which  are  used  in  calculating  the  corner  diffraction 
coefficients  are  defined  by 


DEL(I)  =  k  Lc  a(6oc+ec) 


and 


-J  7 

sine.e  gr  -jk(S  -S') 

CORN(I)  =  -  2ir(coseoc+cosec)  FlkLca^oc+8c)l  e 

e"jkss 

Ss 


where  1=1,2  representing  the  first  and  second  corners  of  the  edge  HE, 
respectively. 

Next  the  subroutine  DCHP  is  called  to  calculate  the  edge  diffrac¬ 
tion  coefficients  the  slope  diffraction  coefficients  dDs/3$, 

the  corner  diffraction  coefficients  Bs,  Bh  and  the  slope  corner 
diffraction  coefficients  3Bs/3$\  3Bj,/d*\ 


1  hir  the  diffracted  field 


' 

Ej 

1 

II 

°sEi 

El 

°hEii 

h  ij 

is  given  b> 
A(S)  ejkY 


the  slope  diffracted  field  by 


i 


3°s  3EII 

34> '  3n“ 

3Dh  3EI 

k  W  3n  ( 


A(S)  Jky 
CP 


» 


the  corner  diffracted  field  by 


and  the  slope  corner  diffracted  field  by 


where  Cn=  jkS'sing-  and  y  is  the  phase  factor  which  refers  the  contri¬ 
bution  ?rom  each  rim  segment  to  the  origin.  The  total  diffracted  field 
for  segment  ME  is  suitmed  in  terms  of  perpendicular  and  parallel  compon¬ 
ents  for  that  segment  as  expressed  by 


-:D  ■  E^Es*(EctEsc)ME*(Ec+Esc)ME<, 

The  diffracted  field  from  segment  ME  is  then  transformed  to  rectangular 
components  in  the  reflector  coordinate  system  so  that  the  total  dif¬ 
fracted  field  from  the  reflector  rim  can  be  summed. 

For  near  field  calculations,  the  geometrical  optics  reflected  field 
must  also  be  included  in  the  total  field  if  the  observation  point  is 
inside  the  projected  aperture.  The  reflected  field  is  calculated  by 
using  interpolation  between  the  aperture  field  values  at  the  adjacent 
grid  points  (see  Fig.  5)  as  given  by 

er.[eo<k.n>  (i  ♦eVi.n)^ 

+  Ea(M,N+l)  e'J'kz 

where  z  is  the  distance  from  the  observation  point  to  the  aperture  plane. 

If  the  field  point  is  in  the  spillover  region,  the  feed  spillover 
field  is  calculated  and  added  to  the  total  field. 

Finally,  for  far  field  calculations  or  for  near  field  calcula¬ 
tion  with  constant  range,  the  total  field  is  converted  to  principal 
and  cross  polarized  components  as  referred  to  the  polarization  of  the 
field  components  from  a  Huygen's  source.  For  near  field  calculations 
with  constant  z,  the  field  is  still  expressed  in  rectangular  components. 
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1G7 


FLOW  DIAGRAM 
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Calculate  the  diffracted 
ray  unit  vector  D  from 
the  segment  midpoint  XM 


Calculate  the  dot  product  DV, 
of  D  and  V 


Set  the  diffraction  angle  limits 
BDLOW  and  BDHI 


YES 


Calculate  coordinates  of  the  diffraction 
point  XD  by  calling  subroutine  DFPTWD 
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Call  subroutine  FEED  to  calculate 
feed  pattern  value  GFP{K) 


NO 


ESI 

172 


YES 


173 


\ 


174 


I 


i 

f 


\ 
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KEY  VARIABLES 

AS 

( A( S ) ) 

Spread  factor  for  diffracted  field 

ASC 

(AC(S)) 

Spread  factor  for  corner  diffracted  field 

BO 

Bounds  of  the  permissible  range  for 
diffraction  angle 

BDEL 

Adjustment  to  the  bounds  for  corner 
diffraction 

BDHI 

Upper  bound  for  diffraction  angle  after 
adjusted 

BDLOW 

Lower  bound  for  diffraction  angle  after 
adjusted 

BETC 

(6C) 

Incident  angle  at  the  corner 

BETOC 

(&oc) 

Diffraction  angle  at  the  corner 

BO 

(30) 

Rectangular  components  of  the  unit  vector 
in  the  direction  of  increasing  diffraction 
cone  angle  B0 

BOP 

Rectangular  components  of  the  unit  vector 
in  the  direction  of  increasing  incident 
angle  Bq 

CBOC 

(cosec) 

Cosine  of  angle  BETC 

CORN 

Variable  used  for  calculating  the  corner 
diffraction  coefficients 

CP 

(Cp) 

Variable  used  for  slope  diffraction 

CPH 

(cos*) 

Cosine  of  diffraction  angle  PS 

CPHO 

(cos*' ) 

Cosine  of  incident  angle  PSO 

D 

(d) 

Rectangular  components  of  the  unit 
diffracted  ray  vector 

DEL 

Variables  used  for  corner  diffraction 

DLVI 

Increment  of  the  incident  ray  vector  VI 
along  the  normal  vector  VN 

DMAG 

Diffracted  ray  path  length  for  near  field 

INPUT/ 

OUTPUT 


(I) 
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ov 


Dot  product  of  the  unit  vectors  D  and  V 
x  and  y  components  of  the  aperture  fields 


(I) 


EA  (Ea) 
ECPL  (E<j) 

ECPR  (E*) 

ED 

EDP 

EDPL  (eJ) 
EDPR  (E^) 

EDT 

EDX 

EDY 

EDZ 

ERX 

ERY 

EXPH 

gam  (y) 
GF  (gf) 

GFP 

KP 


Parallel  component  of  the  corner  diffracted 
field 

Perpendicular  component  of  the  corner 
diffracted  field 

Rectangular  components  of  the  total  dif¬ 
fracted  field  from  the  segment  ME. 

PHI  component  of  the  total  diffracted  field 
from  all  the  segments.  Also  used  for  cross 
polarization  component  (0) 

Parallel  component  of  the  diffracted  field 

Perpendicular  component  of  the  diffracted 
field 

Theta  component  of  the  total  diffracted 
field  from  all  the  segments.  Also  used  for 


principal  polarization  component  (0) 

x  component  of  the  total  diffracted  field  (0) 

y  component  of  the  total  diffracted  field  (0) 

z  component  of  the  total  diffracted  field  (0) 

x  component  of  the  reflected  field 

y  component  of  the  reflected  field 

Phase  term  associated  with  the  diffracted 
field 

Phase  factor  for  diffracted  field 


Feed  pattern  value  calculated  in  subroutine 

FEED  (I) 

Feed  pattern  values  used  for  incident  field 
and  its  slope 

Loop  index  for  calculating  the  incident 
feed  value  and  its  slope 
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LCORNR 

Logical  variable  for  corner  diffraction 

LDIF 

Logical  variable  for  edge  diffraction 

LNF 

Logical  variable  for  near  field  calcu¬ 
lation 

LRANG 

Logical  variable  for  constant  range  field 
calculation 

LSLOPE 

Logical  variable  for  slope  diffraction 

P2.P3 

Field  point  coordinates  (see  User's  Manual) 

PH 

(♦) 

Rectangular  components  of  the  unit  vector 
of  the  direction  of  increasing  diffraction 
angle  PS 

PHEI 

Phase  term  associated  with  the  feed  spillover 
field 

PHGAM 

(♦y) 

PHI  coordinate  of  the  field  point  referred 
to  the  tilted  feed  system 

PHI 

PHI  coordinate  of  the  field  point 

PHIP 

PHI  coordinate  of  the  feed  observation 
direction  as  referred  to  the  source  XS 

PHO 

(♦’) 

Rectangular  components  of  the  unit  vector 
in  the  direction  of  increasing  incident 

PHI  angle  PSO 

PS 

(♦) 

Wedge  diffraction  angle  (see  Fig.  3a) 

PSA 

(♦a) 

Theta  coordinate  of  the  observation  direction 
measured  from  the  feed  axis 

PSI 

(♦> 

Theta  coordinate  of  the  feed  observation 
direction  measured  from  the  negative  z-axis 
of  the  reflector 

PSO 

(♦’) 

Incidence  angle  for  wedge  diffraction  (see  Fig 

RHON 

(p) 

Radial  coordinate  of  the  near  field  point  XN 

RHOS 

Radii  to  the  reflected  shadow  boundaries 
calculated  in  subroutine  SBDY 

RLC  (Lc) 


Distance  parameter  for  corner  diffraction 


RR 

(R) 

Range  to  the  field  point  from  the  origin 

S 

(s) 

Distance  from  the  diffraction  point  XD  to 
the  near  field  point  XN 

SBO 

(sinB0) 

Sine  of  the  diffracted  cone  half  angle 

SC 

(sc) 

Incident  ray  path  length  to  the  corner 

SP 

(s') 

Incident  ray  path  length  to  the  diffraction 
point  XO 

SPH 

(sin<j>) 

Sine  of  diffraction  angle  PS 

SPHO 

(sin*1) 

Sine  of  incident  angle  PSO 

SS 

(ss) 

Diffracted  ray  path  length  from  the  corner 
to  the  near  field  point 

TERM 

Temporary  variable  for  corner  diffraction 

THEB 

(0B> 

Theta  coordinate  of  diffraction  shadow 
boundary  to  opposite  side  of  reflector  rim 

(I) 

THETA 

(e) 

Theta  coordinate  of  the  field  point 

TPP 

(L) 

Distance  parameter  for  edge  diffraction 

V 

(«) 

Rectangular  components  of  the  edge  unit 
vector  of  segment  ME 

(I) 

VI 

(VI) 

Rectangular  components  of  the  incident  ray 
unit  vector  to  the  diffraction  point 

VIC 

A 

(vic) 

Rectangular  components  of  the  incident 
ray  unit  vector  to  the  corner 

(I) 

VMAG 

Segment  length 

VMG 

Distance  from  the  first  corner  to  the 
diffraction  point  XD 

VN 

(VN) 

Rectangular  components  of  the  unit  normal 
vector  of  the  segment  ME 

(I) 

VP 

(VP) 

Rectangular  components  of  the  unit  bi normal 
vector  of  the  segment  ME 

(I) 

XI 

X  component  of  the  direct  incident  ray  path 
for  near  field 

180 


12  Y  component  of  the  direct  incident  ray  path 

for  near  field 

X3  Z  component  of  the  direct  incident  ray  path 

for  near  field 

XD  Rectangular  coordinates  of  the  diffraction 

point 

XN  Rectangular  components  of  the  near  field 

point  coordinates 

X00  Origin  of  the  near  field  plane  cut  (I) 


CODE  LISTING 


1 

2  C!  !! 

3  CM! 

N. 

4  CM! 

b  C!  !! 
o  CM! 
7 
b 
V 
IW 
I  I 
12 

13 

14 
lb 
lo 

1  7 
lb 
IV 

2  a 
2  I 
22 

23 

24 
2  b 
20 
27 
2b 
2V 
jO 
jI 
32 


SUBROUTINE  0TD(P3I ,NGTD, NT HE ,DP3 ) 

DETERMINES  THE  DIFFRACTED  FI  ELD, WITH  PHASE  REFERRED  TO  ORIOI 

FIELD  DIFF.  FROM  EDGE  #ME 

CORNER  DIFF.  IS  OPTIONAL  FROM  INPUT  DATA. 

COMPLEX  EA<2 ,50,  5"> ) ,  ERX, 5RY, PHER ,RFCT 
COMPLEX  CJ,DS,DH,DPS,DPM,3S,BH,BPS,PP" 

COMPLEX  EF , EG, EDPR , EDPL, ED ( 3 ) , TMT , ED X , EDY , EDZ, EDT, ED P 
COMPLEX  El  PRP,  El  PLP,  ET  X,  El  V  ,  El  7,  HIT,  El  P,  CORN  (2  ) ,  FFCT 
COMPLEX  El  PL , El  PR, ECPL,ECPE, EXPH,CP,CX ,CY, PHEI 
D I  ME  NS  I  ON  HI  ICS  ( 2  ) ,  GF  P  ( 2 )  , ! )  EL  ( 2  ) 

DIMENSION  VI (3 ) ,  XN ( 3 ) , XD( 3 ) , PHO( 3) ,PH( 3 ) , POP ( 3 ) , HO ( 3 ' , V I p ( 3 ) 
LOGICAL  LSL0PE,LC0RNR,LDIF,LPErUO,LTFST,LNF,LRANn 
LOGICAL  LF EED.LOI IT , LCP ,L WR I TF 
COMMON  /GEOM  1  /  X  (  67 , 3  )  ,  V  (  67 , 3  ) ,  MR  I M 

COMMON  /GE 0M2/ V  P { 6  7 , 3 ) ,VN( 67 , 3 ) , BD<67, 2 ) , VMA0(67 ) , RMC( 07 ) , 

2  V I C  ( 07 , 3 ) ,  XM  ( 67 ,  3 ) 

COMMON  /  FMDY/RHOS 
COMMON  /FOCAiyF.ZOP 
COMMON  /SORI NF/X S( 3) 

COMMON  /HDY2/TH1  ,TH2  .THEM 
COMMON  /DIR/D<3)  , E I X , F I Y , E 1 7. 

COMMON  /NF/RFCT, X00(3) ,DMI F,P2,RR 

COMMON  /GTDD/LFFF1 ) , LOUT, LCP , LNR I TE ,COS PT , S I N PT , RFFDi  , 7 EM? 

COMMON  /DSC/DS,DM,1)PS,DPH,  ES.MH,  UPS,  HPH 

COMMON  /COMP/C X,CY,GF, PHP, PHD, KX,KY,  I'.YM , SI NTL ,COSTL 

COMMON  /PI  S/PI.TPI  ,DPR 

COMM  ON  /LOGD I F /LSL  OP  E , LC  OR  NR , L  NF , L  R  A f!C 

COMMON  /TEST  /LDE1UJG,  I  .TEST,  NT  ESI 

COMMON  /REFL/DD, RO, I  CO, JCO 

COMMON  /GRIDI/GRIDX.GRIDY, EA 
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1 

o  o 

-  n 

COMMON  /OUT/NW 

34 

DATA  DLVI/0.02/ 

35 

DATA  DELT/0.01/ 

3o 

c 

37 

ZO»F-ZOP 

38 

CJ=(0. ,  1 .) 

39 

BDEL=0. 

4k) 

18  (LCORNR)  BDEL«0.5 

4  1 

FN=2 . 

42 

KP=  1 

43 

PHP=0. 

44 

PHQ=90. 

!  4b 

IF  ( LSLOPE )  KP=2 

1  40 

IF  (LDEBUG)  WHITE  (NW, 106) 

47 

106 

FOHMAT  (/,"  DEBUGGING  GTD  SUBROUTINE") 

48 

IF  (LNF )  GO  TO  1 

4V 

PH  I  =  P2 

50 

PHIR=P2/DPR+ 1 .  E-4 

51 

SINP=SIN(PHIR) 

52 

COSP=COS( PHI  R) 

53 

S-RH 

54 

GO  TO  255 

55 

1 

SI NPH=SIN( PH IF/DPR) 

j  5o 

COSPE=CCS( PH  I  E/DPR ) 

5  7 

IF  ( .NOT.LRANG )  ZE=P2  1 

58 

18  (LRANG)  RF=P2 

59 

L 

60 

WRITE  (NW.240)  RHOS( 1 ) tRH0S(2) 

61 

240 

FORMAT  ( /T 12  ."THE  REFLECTED  SHADOW  BOUNDARIES  IN  THE  PHIF", 

02 

2'  PLANE  ARE  AT", //720, "RHUS 1  =',89. 3, 5X, "AND  RH0S2  =',F9.3,/ 

/) 

Go 

PREVP=3o 1 « 

fcA 

255 

P3=P3I 

o5 

DO  100  NM* 1 , NGTD 

oo 

NN=NM+N7HE 

c7 

18  (.NOT. LNF)  GO  TO  5 

08 

C 

09 

C 

*****  NEAR  FIELD  COORDINATE  CONVERSION  ***** 

7  0 

L 

7  1 

IF  (.NOT.LRANG)  GO  TO  3 

72 

THE*P3/DPR 

73 

SI NTE*SI N( THE) 

74 

COSTK=CGS( THE) 

75 

242 

XN  ( 1  )»X(-0(  1  )+RE*SINTE*COSPE 

76 

XN(2)»X(0(2)+RF*SINTE*SINPE 

77 

XN  ( 3 ) *  X  CO  (  3 )  +R  l:*C()ST  E 

78 

IF  ( 1  .DEBUG)  WRITE  (NW.205)  RE,P3 

79 

205 

FORMAT  ( /T 10," RE  =", FI 0. 3, 5X ,"THE  »",F7.2,/> 

80 

IF  ( XN( 1 )• NE .0 . . OR. XK( 2 ) .NF.C*. )  00  TO  4 

81 

SI  NTF>S1  NTF>0. 00 1 

82 

GO  TO  242 

L 

CM 

00 

f 


8  3 

3 

ZL=P3 

84 

DRHO=ZL-RHOS<  1  ) 

8b 

18  (f)HHC.L[:.0.2  1  .AND.DKIIO.GE.0.  > 

ZL=R'!GS(  1  )-0.0  5 

bo 

DRHO=ZL-RHOS(2) 

87 

IF  (DRHO.LE.0.21  .AND .DRHO. GH  .0. ) 

ZL=Ri  IOS(2  )+'\0b 

88 

XN  (  1  )=XCO(  1  )+ZL*COSPE 

8V 

XN (2 )=XOO( 2 )+ZL*SINPE 

V0 

XN (3 )=ZE 

VI 

IF  (L1)F;FUG)  WRITE  (NK.302)  ZF,P3 

V2 

302 

FORMAT  (/7  I0,/ZE  =' ,  FI  0. 3,5X  ,'ZL 

=  ',F 10.4,/) 

V3 

4 

PHIR=BTAN2(XN(2) ,XN( 1 )) 

V4 

SINP=SIN(PHIR) 

Vb 

COSP=COS ( PHI R) 

Vo 

RR=SGRT( XN ( 1 )*XN< I )+XM(2 )*XN  (2  )  +  XN  ( 3  )*XN<3  ) ) 

V7 

IF  (LDEbUG)  WRITE  (NK, 108)  XH( 1 ) 

,XN(2) » XM(3) 

Vb 

COST=XN( 3)/RR 

VV 

THER  =ACO  S ( COST ) 

100 

THETA=THER*DPR 

|0  1 

GO  TO  6 

102 

b 

THETA»P3 

103 

THER=THHTA/DPR 

104 

C 

10b 

6 

IF  ( ( LTF  ST ) . OR . (  LDEBUG  ) )  WRITE  (NW.2)  THETA 

10O 

2 

FORMAT  </T2, 7HTHETA  =,F7.2/) 

107 

SINT=SIK(THER) 

108 

C  OST=C  OS ( THER ) 

10V 

EDX= (0. ,0.  ) 

110 

EDY=(0. t0. ) 

•M  1 

EL)Z=  (0.  ,0.  ) 

112 

D<  i  )=sint*cos:p 

113 

D(2 ) =SINT*SIMP 

114 

D(  3)  =COST 

lib 

DO  60  ME=I ,MRI M 

1  lo 

EDPR=(0. ,0. ) 

117 

EDPL=( 0.  ,0. ) 

118 

ECPR=<0. ,0. ) 

1  1  V 

EGPL=(0.f0.) 

120 

MOM E+ 1 

12  1 

IF(MC.GT.MRIM)  MC“ 1 

122 

IF  C.NOl.LNF)  GO  TO  V 

123 

DMAG=0. 

124 

DO  7  N= 1 1 3 

12b 

l)(f!)=XN(N)-XM(Ml-fN) 

126 

7 

f'MA0=f)M/G+D(M  )★[)(![) 

127 

DMAG=S01d  ( DM AG ) 

128 

b=DMAG 

12V 

IF  (l.DEIUG)  WRITE  (MIV,  IVV)  DMAO 

130 

DO  8  fl=  1  ,3 

13  1 

8 

D ( N ) =D ( I )/DMAG 

1 J2 

V 

DV*0. 
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1 33 

134 

1 3 1» 

10 

1 36 

137 

138 

139 

12 

./> 

140 

C!  ! ! 

141 

142 

C 

143 

C!  ! ! 

144 

C 

14b 

146 

147 

148 

1  12 

149 

1  b0 

Ibl 

152 

153 

154 

1  1 

1 55 

156 

157 

158 

1  99 

159 

160 

lol 

162 

1 63 

13 

164 

14 

165 

1  06 

rill 
#  #  » 

167 

C!!» 

168 

1 69 

170 

15 

17  1 

172 

173 

200 

174 

175 

176 

1  77 

178 

179 

103 

180 

181 

182 

101 

DO  ID  N=  1 , 3 

IF  (LL)EbUG)  WRITE(NWtl0R)  D(N) 

DV=DV+D( N)*V (ME, N) 

BULOW=BD(ME, 1 I-RDEL 
BL)H1  =BD( ME  ,2  )+RDEL 

IF  (LUEbUG)  WRITE  (NW',12)  ME  ,DV ,  BDLOW,  BDHI 

FORMAT  (/TI0.I2,'  DV=' tF8.  4, 5X,' BDLOW  =' ,  F8. 4,  5X,'BDHI  =',F8. 

DETERMINE  IF  DIFFRACTION  EXISTS 
IF(DV.LT. BDLOW. OR. DV.GT. BDHI )GO  70  60 

COMPUTE  EDGE  DIFFRACTION  POINT 

CALL  DFPTWD( XS, XNt  DV  t V I , SP, XD, ME ) 

IF  (LUEbUG)  WRITE  (NW, 112)  ME.SP ,( XS(H ) ,XM(ME, H) ,XD(N) ,VI ( N) , 
2N=I ,3) 

FORMAT  (I5,5X,4HSP  =,F10.4, 1  1 X  ,2HXS,  RX  t2HXM,  RX ,2!IXD,  9X ,2MVI , 
23(/T30, 4F10.4),/) 

IF  (.N03.LNF)  GO  TO  14 
DMAG=0. 

DO  II  N=l ,3 
D(N)=XN(N)-XD(M) 

DMAG=DMAG+D(N)*D(N) 

DM AG=SORT  <  DM AG ) 

S=DMAG 

IF  (LUEbUG)  WHITE  (NW.I99)  DMAG 
FORMAT  (/T 10, 'DM AG  =',F10.3,/) 

DV=0 . 

DO  13  N=l ,3 
D( N)=U(N)/DMAG 
DV=DV+D( N)  *V (ME,  N) 

IF  (LUEBUG)  WRITE  (NW1,-)  D(N) 

ADN=0. 

VMG=0. 

COMPUTE  VMG, WHICH  IS  DISTANCE  FROM  FIRST  CORNER  OF 
EDGE  TO  DIFFRACTION  POINT. 

DO  IB  N= I , 3 

VMG=VMG+ ( XU( N)-X (ME, N ) )*V(  ME ,N ) 

ADN=ADN+(XS(N)-X(I ,N ) )*VN( ME ,N ) 

LDIF=.TRDE. 

IF  (LUEBUG)  WRITE  (NW.200)  VMG, VMAG( ME ) , DV 

FORMAT  (/T 10, 'VMG  =' ,E10.3,5X, 'EDGE  LENGTH  =' , El  0. 3,/T 10, 

2 'DV  =',F10.4,/) 

I F ( VMG.LT. 0. )G0  TO  101 
IF(VMG.LE. VMAG(ME) )G0  TO  102 
SP=HMC(MC) 

DO  103  N=l,3 

VI (N  )=VIC( MC ,N )/SP 

LDIF=. FALSE. 

GO  TO  U')2 
SPaRMC ( ME ) 
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r 

i 

183 

DO  104  N=  1  ,3 

t 

lb*  104 

VI (N>=VIC(ME,N)/SP 

18b 

Ll)IF=.  FALSE. 

180  102 

01=0. 

| 

187 

PP=0. 

188 

QD=0. 

10V 

PD=0. 

i 

1  V0 

DO  20  N=  1 1  3 

i . 

1  v  1 

OI=QI-Vh(ME,M)*VI(N) 

1  VJ 

PP=PP-VPUL:,K)*VI’<  N) 

i 

1  V3 

01)=0D+VM  (MI:,N  )*D(K ) 

i . 

IV4  20 

PU=PD+  V  P ( ME  t  N ) *D (N  ) 

IVb  C i 1 ! 

PS.PSO  APE  THE  DIFFRACTION  PHI  ANGLES, WHERE  PSO  IS 

IV6  C!  ! ! 

INCIDENT  PHI  AND  PS  IS  DIFFRACTED  PHI. 

i 

I V  7 

PS0R=BTAN2 (0 1 , PP  ) 

'  • 

IV8 

PSO=l)PR*PSOR 

1  W 

IF (PSO.LT.0. )  PSO=360.+PSO 

! 

200 

PSR=BTAN2(OD,PO) 

201 

PS=DPR*FSR 

202 

IF  (LDEBIJG)  WRITE  <NW,  107)  ME,PSO,PS 

203  1 07 

FORMAT  C/T10, Ib,5X,'PS0  =/ ,F?.2,5X,'PS  =',F7.2,/) 

204  C 

20b  <J 

*  CHECK  IF  DIFFRACTED  FIELD  IS  BLOCKED  BY  THE  REFLECTOR  * 

200  C 

207 

IF  ( PS.GE.0. .AND.THER.GT.THEB)  GO  TO  60 

208 

I F( PS.LT.0 . )  PS=360.+PS 

20V 

FNP=FN*180. 

210 

SPHO=SI N (PSOR ) 

2  1  1 

CPHO=COS( PSOR) 

I 

212 

SPH=SIN( PSR) 

j 

213 

CPH-COS(PSR) 

214  C!  !! 

COMPUTE  DIFFRACTION  POLARIZATION  UNIT  VECTORS! PHOt PH, BOP. BO) 

21b 

DO  30  N= 1  *  3 

2  1  o 

PKO(N)=-VP(ME,N)*SPHO+VN(ME,N)*CPHO 

2  17  30 

PH  <  N  )  =- V  P  ( ME ,  N  )  *  SP H+VN  ( M  E ,  N )  *C PH 

*  ' 

218 

BOP ( 1 )=PH0(2)*VI ( 3 )-PHO( 3)*V I  ( 2 ) 

21V 

BOP ( 2 ) =PHO ( 3 ) *V I (1 )-PHO( 1 )*VI<3) 

, 

220 

B0P(3)=PH0< 1 )*VI<2)-PH0(2)*VI( I) 

*  • 

22  1 

B0( 1 )=PH(2 )*D<  3 ) -PK( 3 )*D (2 ) 

222 

BO(2)=PH(3)*D( l)-PH( 1 ) *D ( 3 ) 

223 

BO (3 )=PH( 1 )*D(2)-PH(2)*D( l ) 

f 

224 

IF  ( LDEIMJG  )  WRITE  (NW,108)  ( PHO(  N) ,  PH(  N)  ,BOP  (N  )  ,  BO(N )  ,N=  1 , 3) 

22  b  1  08 

FORMAT  <T20,4F12.5) 

226  C 

1 

227  (J !  ! ! 

COMPUTE  SOURCE  PATTERN  FACTORS 

228  C 

22  v 

1)0  2V  K=  1 , KP 

i  j 

230 

PSI R=BT/ N2  <  SORT ( VI ( 1 >*VI ( 1 >+VI (2 )*VI (2  ))  ,-VI (3)) 

i  i. 

23  1 

PHIPR=BTAN2{ VI <2 ) , VI ( l )) 

232 

PSI=PSIR*PPR 

185 


253  PHI P=PH1 PR*DPR 

254  CALL  FEEIH  PS1,  PH  IP, PSA, PHGAM) 

23b  IF  (K.E0.2)  GO  TO  24 

236  PSAI =PSA 

237  PHGAM i =PHGAM 

23b  24  GFP(iO=GF 

23V  DO  27  N=  1 , 3 

2 40  VI (N)=VI (N)+PHO(N)*DLVI 

241  27  CONTINUE 

242  2V  CONTINUE 

243  CF=GFP(l> 

244  CALL  FPOL (  hi  X,  FT  Y,  El  Z,  PSAI , PHGAM I ) 

24b  Ir  ( (LI)1F)  .AND .  ( LDEBUG) )  WRITE  (NW,25)  EIX.EIY.EIZ 

240  2b  FORMAT  (/TI0,bHEIX  =  ,2F1 0. 4, 5X ,5HEI Y  = ,2F10. 4, 5X,5HEIZ  =  , 

247  1 2F 10.4,/) 

248  El PR=( El X*PHO( I )+EIY*PH0(2 )  +  EIZ*PH0(3) )*F/SP 

24V  EIPL=(EIX*BOP(  1  )  +EI Y*BOP  (2  )  +  EIZ*R0P(3)  )*F/SP 

2b0  If-  (LDEBUG)  WRITE  (NW,3l  )  SP,EIPR,EIPL 

2b  I  51  FORMAT  <Tb,4HSP  «,F1 0. 4, 5X,6HEIPR  =, 2E l 0 .3, 5X, 6HEI PL  =  ,2E10.3) 

2b2  IF  ( .NOT .L SLOPE)  GO  TO  36 

2b3  GF= ( GFP ( 2 ) -GFP (I ) ) /DLV I 

2b4  CALL  FPOL(  El  X,  El  Y,  El  Z,  PSAI  ,  PHGAM  1  ) 

2bb  E I  PR P= ( E I X*PHO ( I  )+EI Y*PHO( 2 > +E IZ*PH0(3 ) ) *F/SP 

2bo  El PLP=(EIX*B0P( 1 )+EI Y*B0P(2 ) +E IZ*BOP (3 ) )*F/SP 

2b 7  IF  ( LDEBUG )  WRITE  (MW, 37)  EIPRP.EIPLP 

2bb  37  FORMAT  (T24,7HEIPRP  =,2E 10.3 ,4X, 7HEI PLP  =,2E10.3) 

2b V  C 

200  C! ! !  COMPUTE  SBO=SINE(BO) 

201  C 

20 2  3o  CONTINUE 

263  SBO=S()RT  ( (  V (  ME, 3  )*D( 2 )  -V  ( .ME,  2 )*D(  3  ) )  **2+  ( V  ( ME,  1  ) 

204  &*D(3)-V(ME,3)*D( 1 ) ) **2+ ( V (M E, 2 ) *D( 1 )-V(ME, 1 )*D(2) ) 

26b  &**2 ) 

2 00  TPP=SP*SBO*SBO 

267  IF(LNF)  GO  TO  bV2 

26b  GAM=0. 

20V  AS=SQRT(SP) 

270  DO  by0  N=1 ,3 

271  bV0  GAM=GAM+XD(N )*D(N) 

272  GO  TO  bVb 

27  3  592  GAM=-S 

274  AS=SQRT( SP/( S*(S+SP ) ) ) 

27b  TPP=TPP*S/(S+SP) 

27o  bVb  IF  ( IDE LUG)  WRITE  (NW,5V9)  ME,TPP, PS,PSO,SBO 

277  bVV  FORMAT  (II0,bX,3HR  = ,FV. 4,5X  ,4HPS  =,F9 .4,5X,5HPS0  =,F9.4, 

27b  2bX,bHSBC  »,F6.  3) 

27V  EXPH=CEXP(CMPLX(0. ,TPI*< GAM-SPO ) ) 

280  El  PR =EIPR*EXPH 

281  EIPL=EIPL*EXPH 

282  E I  PR  P=  E I  PR  P*  EX  PH 


186 


2b  j 

284 

28  b 

28  o 

O0I 

281 

2  88 

28V 

361 

2V0 

C 

29  1 

C 

292 

C 

293 

294 

29b 

296 

(JIM 

297 

298 

299 

3  00 

301 

302 

301 

30  3 

304 

308 

300 

307 

308 

309 

JI0 

31  1 

312 

313 

314 

3  1 L 

310 

317 

31b 

319 

304 

320 

32  1 

322 

323 

o2  4 

32  b 

30b 

32o 

327 

328 

(JIM 

329 

330 

Jo  1 

332 

22 

323 

26 

F1PLP=F'1 PLP*HXPI! 

CP=CJ*TPI*SP*S BO 

IF  <  [DEBUG )  WRITE  (NK.60I)  GAM,  AS,  EXPH  t  E IPR ,  F.I  PL,E  IPRP  ,EIPLP 
FORMAT  ('l  l  0, 5HGAM  =,  FI  5.  6, 5X  ,'  AS  =' ,F1 5. 6,/ 1 0E 12 .6 ) 

DO  361  J=l  ,2 
DEL( J)=0. 

CORN ( J  )  =  (0 . , 0. ) 

*****  SKIP  LOOP  22  IF  LCORNR  FALSE  ***** 

IF  ( .NOT. LCORNR)  GO  TO  26 
MC=ME 
I  SN=  I 

LOOP  TURN  BOTH  CORNERS  ON  EDGE  it  ME . 

1)0  22  1=1,2 
I  F  ( MC.G'l . MRI  M  )  MC=I 
I  SN=-I SN 
SC=KMC(MC) 

IF  (LDELUC)  FRITH  (MW, 301)  (  V(  ME,N  ) ,  VI  C(  .MC,  N ) ,  N=  1 , 3 ) 

FORMAT  (/3(T10,2FI0.b,/) ) 

COSBC=V(ME,  I  )*VIC(MC,I  )+V(ME,2  )*VIC(MC,2  )+V(  ME ,3  )*VIC(  MC,3) 

COSBC=-I SN*COSBC/SC 

CBOC=ISN*OV 

IF  (LDEIUG)  WRITE  (NF,-)  ISN .SC.COSBC, DV,CBOC 
BETC=ACOS ( COSBC ) 

SI NBC=SI N( BETC ) 

RLC=SC 
ASC= 1 . 

ZP=(X(MC,  1  )-X()(  I  ))*!)(!  )+(X(MC,2)~XD(2))*D(2) 

&+(X(MC,3)-XD(3  ))*D(3) 

IF  ( .NOT .LNF .AND . . HOI .LRANG)  GO  TO  30b 
SV =0 . 

SSM=0. 

DO  304  N= 1 ,3 
SX=XN( N )-X (MC, N) 

SV=SV+SX*V(MH,N) 

SSM=SSM+SX*S>. 

SS=SQRT ( S5M ) 

CBOC=I SN*SV/SS 
RLC=  SC* 1 5/ ( SC* SS) 

ASC=I/SS 

ZP=S-SS 

BF 1 0C=  AC  0  5  ( C  F  OC ) 

DEL( I )=2.*TPI*RLC*(C0S( . 5* ( BETC+BETOC ) )**2) 

Tb R  M — S I N  BC*  SO  RT ( S  P / SC ) *  A  SC/ ( T  P I  * ( COS  BC+  CB  OC  ) ) 

COMPUTE  CORNER  DIFFRACTION  COEFFICIENT (CORN) . 

CORN ( I ) — T ERM* FFCT ( 0  EL ( I ) ) *0  EX  P ( CMPL  X ( 0 . , -TP I * ( SC- SP-Z  P ) - . ?b  *  r 
IF  (  LDEkNG )  FRITF.  (NV,3J1)  BltTC,  RETOC,  SC  ,SP,SS,RLC,Zr’,!)EL(  I  )  , 

2  TERM  ,CORIi  (  I  ) 

MC=MC+ I 
CONTINUE 
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NIK  NOCOPY  N|  SOI  (M  ION  IfM  ('MAN  1 


r 


334 

335 

336 

32 

337 

338 

33  V 

340 

34  1 

342 

201 

343 

344 

345 

202 

34C 

347 

34 

346 

C 

34  V 

C !  ! ! 

350 

C 

351 

352 

353 

35 

354 

355 

356 

357 

358 

35V 

360 

361 

203 

362 

363 

42 

364 

365 

366 

3o7 

38 

308 

(j ;  1 1 

36V 

C 

370 

45 

37  1 

372 

48 

37  3 

37  4 

55 

375 

37  6 

377 

378 

37  V 

60 

380 

38  1 

382 

02 

383 

384 

C 

385 

C 

386 

C 

CALL  l)CHP(  PEL, CORN  ,TPP, PS,  PSO,  SBO) 

IF  ( LDEBUG )  WRITE  (MW, 32)  DS ,DH, DPS, DPH 

FORMAT  </TI«,4HDS  =,2F I0.5,5X,4HDH  =  ,2FI  0.5,/T10,5HDPS  =, 
22F 10.5, 5X, 5HDPH  =,2FI0.5,/) 

IF  (.NOT.LDIF)  GO  TO  202 
EDPR=-EIPR*AS*OH 
EDPL=-EI PL*AS*DS 

IF  (LUFIHIG)  WRITF:  (NW,34)  ME,EDPR,EDPL 
IF  ( .NO'l  .LSLOPE)  GO  TO  202 
EDPR=EDPR+EI  PRP*AS*DPH/CP 
EDPL=EDPL+EI PLP*AS*DPS/CP 
CONTINUE 

IF  ( (LD1 F) .AND. ( LDEBUG) )  WRITE  (NW,34)  ME,EDPR,EDPL 
FORMAT  ( 1 1 5,5X,6HEDPR  = , 2F JO .4 ,5X, 6HEDPL  =,2F10.4) 

IS  CORNER  DIFFRACTED  FIELD  DESIRED? 

IF  ( .NOT.LCOHNR)  GO  TO  45 

IF  (LDEBUG)  WRITE  (NW,35)  BS,BH, BPS, BPH 

FORMAT  (T10.4HBS  =,2F1 0.5,4X,4HBH  =,2F 10.5 ,/Tl 0.5MBPS  =, 

22F 10.5 ,4X, 5HBPH  =,2FI0.5,/) 

ECPK=-EIPR*BH 

ECPL=-EIPL*BS 

IF  (LDELUG)  WRITE  (NW,42)  ME,ECPR,ECPL 

IF (.NOT. LSLOPE) GO  TO  203 

ECPR =ECPR+EI PRP*BPH/CP 

ECPL=ECPL+EI PL P* BP S/CP 

CONTINUE 

IF  (LDEtUG)  WRITE  (NV.,42)  ME,ECPR,ECPL 

FORMAT  (115, 5X ,6HECPR  =,2E10.3 ,5X, 6HECPL  =,2EI0.3) 

EDPR=EDPR+ ECPR 

EDPL=EDPL+ECPL 

IF  ( LDEEUG )  WRITE  (NW,38)  ME  ,EDPR ,  ED  PI. 

FORMAT  (I15,5X,6HEDPR  =, 2E 10.3 ,5X, 6HEDPL  =,2E10.3) 

COMPUTE  HI  El  A  AND  PHI  COMPONENTS  OF  TOTAL  DIFF.  FIELD 

CONTINUE 
DO  48  N= I ,3 

ED ( N )=EDPL*BO( N ) +EDPR*PH (N ) 

IF  (LDELUG)  WRITE  (NW,55)  ME, ED( 1 ) ,ED( 2 ) ,ED( 3) 

FORMAT  ( I  I 5,5X,5HED1  =,2 El  0.3, 5X ,5HED2  =,2E 1 0.3.5X ,5HED3  =, 
22EI0.3) 

EDX=EDX+ED( 1 ) 

EDY=EDY+ED(2 ) 

EDZ=EDZ+ED(3) 

CONTINUE 

IF  (.NO'i.LNF)  GO  TO  80 

IF  (LOUT)  WRITE  (NW,62)  EDX,EDY,EDZ 

FORMAT  (/T10,T I0,5HEDX  =  ,2E1  0.  3,5X ,5HEDY  =,2EI0.3,5X, 

25HEDZ  =,2E 10.3 ,/ ) 

*****  NEAR  FIELD  SECTION  ***** 


188 


3b  7  X I =XN( I )-XS( I ) 

38b  X2=XN(2 )-XS( 2) 

3bV  XJ=XN( 3 )-XS( 3) 

3V0  RH0=SQR1  (X  l*XI+X2*X2  ) 

3VI  IF  (XN(3).LT.O.)  Go  10  6b 

3V2  RH0N=S()hT(  (XH<  I  )-X00<  I  ))  **2+(XN(2)-XOO(2  ))**2) 

3V3  IF  ( RHON .LT. RH0S(2 ) . OR .RHON'. GT.RHOS( 1 ) )  GO  TO  65 

3V4  C 

3Vb  C  ***  REFLECTED  FIELDS  *** 

3V6  C 

3V7  I  =  ICOXN(  I  )/GRID X+DELT 

3Vb  J=JC0+XN (2 )/GRIDY+DELT 

3VV  M=I + I 

400  N=J+ 1 

4k!  I  DX=XN(  1  )/GRI DX+I CO-I 

402  DY=XN (2 )/GRI DY+JCO-J 

405  PHER=CEXP(-CJ*TPI*XN(3)) 

404  ERX=(EA<  l,M,N>*(  1 .  -DX-DY  )  +  EA(  l  ,M  +  1  , N  )*DX+EA  (  I  ,.¥,*!♦  1  >*DY)*PHEE 

40  b  HR  Y=  ( E  A  ( 2  ,  M ,  N )  *  (  I .  -DX-  »)Y )  +  E  A  ( 2  ,  M+ 1  ,  N  )  *  DX+F:  A  ( 2 ,  M ,  N+  1 )  *D  Y )  *P  HE  Ft 

406  IF  (LOUT)  WRITE  (NW.64)  ERX.ERY 

407  64  F0RMA1  (/TI0,'ERX  ,2Ei  2.  4,  5X,  *  ERY  =',2E12.4,/) 

40b  EDX= EDX+ERX 

40V  EDY=EI)Y+EWY 

410  C 

411  C  ★**  SPI  U.OVER  FIELDS  *** 

412  C 

413  6b  IF  ( .NOT.LFEED )  00  TO  74 

414  PHIPR«BTAN2(X2,XI) 

41b  PHI  P=*PHI  PR*I)PR 

41o  PSI=BTAK2( RH0.-X3) *DPR 

417  THE! A= 1 F0.-PSI 

41b  HS=SORT( RHO*RHO+X3*X3 ) 

4 1 V  PH  b  I  =C  EX  P ( -CJ*TP I ★ RS ) *F/ RS 

420  IF  ( XN ( 3 ) . GE .0 . )  GO  TO  70 

42  1  IF  (ABS(PHIP-PREVp).GT. 0.301  )  CALL  SBDY(  MRIM  ,X ,  XS,  PH  IF. , 

422  21H1 tTH2,THEB) 

423  PREVP=PHI P 

424  lb  ( ABS(THET/-THI ) .LT.0.05)  THETA=THET A+0. 05 

42b  IF  ( APS (THETA-TH2). LT.0.05)  THETA= THETA-0. 05 

420  IF  (THE7A.LE.TH2 .AND. THETA. GE.TH1 )  GO  TO  74 

427  70  CALL  FEELX  PS  I ,  PH  I P ,PSA ,PHOAM  ) 

42b  CALL  FPOL( HI  X,  FI Y, El Z , PSA, PHOAP ) 

42V  EIX=EIX*PHFI 

430  EIY=EI Y*PHFI 

431  f:iz=fiz*phei 

452  IF  (LOUT)  WRITE  (NR, 72)  El  X, FI Y, El Z , FOX, EDY, EDZ 

433  72  F0RMAT(2H  0,TI  b,  5MHI  X  =, 2E10.4 ,5X,5MFI  Y  =,2E  1 0 .4 ,5X,  5: !EI  Z  =  , 

434  22  E  1 0 . 4 , 1 7  9 ,  UIU,/2H  0,T»b,5HFDX  *,2F1 0.4,5X,5HEDY  =  ,?E10.4, 

43b  35X, bHEDZ  =,2EI 0.4tT7V, 1W0) 

43o  EDX=EDX+EI X 
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437 

438 

43V  74 

44  0 
44  I 

442 

443  7b 

444 
44  b 
446 

44  7  7  6 

448 
44  V 
4b 0  C 

4b  i  e 

4b  2  C 
4b3  80 

4b  4 
4bb 

4bo  82 
4b  7 
4b  b 
4b  9  C 
400  L 
40  1  C 
462 

403 

404 

46  b 

466 

467 

408 

409 
470 

47  l 

472 

473 

474 
47  b 

47  0 

477  C 

478  C 

479  C 

480  84 

48  I 

482 

483 

484 
48  b 
480 


EDY-EDY+EIY 
EDZ*EDZ+EI Z 

IF  (.N01.LRANG)  GO  TO  75 
EDT=COST*( COSP*EDX+S INP*EDY) -SI NT*EDZ 
EDP=-SINP*EDX+COSP*EDY 
GO  TO  84 

CALL  DBPHS(AEDX,  EDX.fl.  > 

CALL  DBPHS(AEDY, EDY, 0. ) 

CALL  DBPHS(AEDZ,  EDZ,0. ) 

IF(LWRITE) WRITE  (NW,76)  P3 ,AEDX , EDX, AEDY.EDY, AEDZ, EDZ 
F0HMAT(2H  W,T5 ,F6.2, 4X , , 3( El 0.3.2F 10.2  ) ) 

PLT=REAL(EDY ) 

GO  TO  90 

*****  FAR  FIELD  SECTION  ***** 

EDTJS(COST*COSP*EOX+COST*SI  NP*EDY-SINT*EDZ)*RFCT 

EDP=(-SINP*EDX+COSP*EDY)*RFCT 

IF  (LOUT)  WRITE  (NW',82)  EDT.EDP 

FORMAT  ( 2hi  T,  710,  'EDT  »',2E 11 .3, bX,  'EDP  =  'f  2E  1 1  .3,  T79f  I  HT) 
IF  (.NOT.LFEED)  GO  TO  84 

IF  (THETA. LI. TH2 . AND. THETA. GT. THI )  GO  TO  84 

***  SPILLOVER  FIELDS  *** 

PSI =180. -THETA 
PSI R=PSI /DPR 
SINS=SIN(PSIR) 

COSS=COS(PSIR) 

CALL  FEED( PSI , PHI , PSA, PHGAM ) 

CALL  FPOL( El  X. HI Y,EiZ, PSA, PHGAM) 

EIT=-C0iS*C0SP*E I X-COSS*  SI NP*EI Y-SIMS*EI Z 

EIP=-SINP*EI X+COSP*EIY 

PHEI=CEXP(CJ*TPI*ZO*COST)*F*RFCT 

EIT=EIT*PHEI 

EIP=EIP*PI!EI 

IF  (LOUT)  WRITE  <NW,->  EIT.EIP 

EDT=EDT+EIT 

EDP=EDP+EIP 

IF  (LOUT)  WRITE  (NW,82)  EDT,  EDP 

***  PRINC  AND  CROSS  POLARIZED  COMPONENTS  *** 

TMT= EDT 

EDT=COSPT*EDT-SI NPT*EDP 
EDP=SI NP7  *TMT+COSPT*EDP 
IF  (.N07.LCP)  GO  TO  8b 
TMT-EDT 

EDT=TEM2*( RDT-CJ*HDP ) 

EDP=TEM2*(  TMT+CJ*EDP ) 
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4b'/ 

8b 

CALL  DBPHS (A EOT,  EDT,  RE  FOB) 

4b  b 

CALL  DBPHS  ( A EDP ,  EDP, REFPB ) 

4b  V 

IF  (LWHITE) WRITE  <NIV,8<5)  P3 , AEDT, EDT, AEDP,EDP 

490 

b6 

FORM  AT (2H  W,Tb,F6.2, 4X,,2(EI P.3.2FI0.2  >,T79, 

491 

PLT=HHAL(HDT> 

492 

90 

CONTINUE 

493 

WHITE  (2)  PLT 

494 

P3-P3+DP2 

49  b 

100 

CONTINUE 

4V6 

Hh'TUHN 

497 

END 
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SUBROUTINE  LNFD 


PURPOSE 

To  calculate  the  feed  pattern  value  by  linearly  interpolating  the 
input  feed  data  In  a  given  PHI  cut. 


Figure  1.  Piece-wise  linear  approximation  for  feed  patterns. 
METHOD 

The  feed  pattern  value  fe  at  an  angle  is  calculated  by 
fe  s  f1  '  O-dp)  +  fi+1  •  dp 

where 

g,-* 

dp  a  - 1 - 

*i+r*i 

and  ff 's  are  the  input  feed  pattern  data. 


FLOW  DIAGRAM 


LNFD(PX,F,PSI,N2,FE,LD8) 

INPUT  VARIABLES 

PX  U, )  Input  feed  pattern  angles 

F  (f,)  Input  feed  pattern  data  at  PX 

PSI  M  Feed  pattern  angle  at  which  the  feed  pattern 

value  Is  to  be  calculated 

N2  Total  number  of  input  data  points 

LDB  Logical  variable  which  specifies  the  feed 

pattern  in  dB  values,  if  true,  or  as  linear 
field  values,  if  false 

OUTPUT  VARIABLES 


FE  (fe)  Calculated  feed  pattern  value 


RETURN 
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CODE  LISTING 


1  SUBROUTINE  LNFD( PX,F ,PSI ,N2,FEtLDB) 

2  DIMENSION  PX(I5),F(I5) 

3  LOGICAL  LUB 

4  N3=N2- I 

b  DO  10  1=1, N3 

o  IF  ( PSI  .GT .PX(  !♦  |.) )  GO  TO  !0 

7  DP=( PSI-PX (I ) )/( PX< I*3 )-PX(  I  )) 

b  FE«F(I)*(l.-nP)*F(I*l)*DP 

V  RETURN 

10  10  CONTINUE 

i]  I  FE<*0. 

12  IF  ( LDB)  FE*-bO0. 

13  RETURN 

U  END 
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SUBROUTINE  SBDY 
PURPOSE 

To  calculate  the  shadow  boundary  angles  for  the  spillover  field, 
the  edge  diffracted  field  and  the  reflected  field. 


(a)  FRONT  VIEW 


SB 


(c)  SIDE  VIEW  FOR 
DIFFRACTED  FIELD 
SHADOW  BOUNDARY 


SB, 


sb2 

(b)  SIDE  VIEW  FOR 
SPILLOVER  FIELD 
SHADOW  BOUNDARY 


(d)  SIDE  VIEW  FOR 
REFLECTED  FIELD 
SHADOW  BOUNDARY 


Figure  1.  Geometry  for  shadow  boundary  angles. 
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METHOD 


In  order  to  find  the  appropriate  shadow  boundary  angles  and  dis¬ 
tances,  the  intersecting  points  on  the  reflector  rim  cut  by  the  PHI 
plane  must  be  located.  By  comparing  <j>  with  y]  and  yg,  which  are  the 
projected  angles  defined  by  the  source  XS  and  the  rim  points  Pi  and 
Pj+},  respectively,  measured  from  the  x-axis,  on  the  aperture  plane, 

(Fig.  la)  the  index  of  the  rim  section  cut  by  the  <t>  plane  is  found  and  the 
intersecting  point  coordinates  x  and  y  can  be  obtained  by  solving  the 
linear  equation  of  the  corresponding  edge  and  y=x  tan<j>;  then  2  by  solving 


Once  x,y  and  2  are  determined,  the  parameters  for  the  different 
shadow  boundaries  are  readily  found  as  follows: 

a)  Incident  shadow  boundary  angle  e 

°1,2  =  *"“1,2 

where  a  is  defined  by  XS  and  the  intersecting  points  on  the  rim  (see 
Fig.  lb)  and  is  given  by 


b)  Diffracted  shadow  boundary  angle  eg 

This  angle  is  defined  by  the  two  intersecting  points  on  the 
upper  and  lower  rim  respectively,  measured  from  the  2-axis  (Fig.  lc) 
and  is  given  by 

°B  =  tan"1  (£§■) 


where 


ap  «  y(x2-xi)*+(y2-yi)* 

and 

A2  =  Zl-Z2 
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c)  Reflected  shadow  boundary  distance  ps 
ps1 >2  =  ^(x-XS( I) ft+(y-XS(2)J^ 
which  is  illustrated  in  Fig.  Id. 
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FLOW  DIAGRAM 
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Calculate  angle  ALPHA  and 
incident  shadow  boundary 
angles  TH1  and  TH2 


Calculate  diffracted  shadow 
boundary  angle  THEB 


KEY  VARIABLES 


INPUT/ 

OUTPUT 


ALPHA 

(a) 

Incident  shadow  boundary  angles  measured 
from  negative  z-axis 

GAM1 

(Yl) 

Projected  angle  defined  by  XS  and  RIM  POINT 
measured  from  the  x-axis 

GAM2 

( Y2 ) 

Projected  angle  defined  by  XS  and  RIM  POINT 
P1+l  measured  from  the  x-axis 

ML 

Index  of  the  lower  rim  cut  by  PHI 

MU 

Index  of  the  upper  rim  cut  by  PHI 

RHOS 

(ps) 

Reflected  shadow  boundary  distances 

X(l) 

X-coordinate  of  the  upper  intersecting 
rim  point 

X(2) 

X-coordinate  of  the  lower  intersecting 
rim  point 

XI 

X-component  of  the  distance  from  the  source 
to  rim  point  Pi 

X2 

X-component  of  the  distance  from  the  source 
to  rim  point  Pi+1 

Y(l) 

Yrcoordinate  of  the  upper  intersecting 
rim  point 

Y  ( 2 ) 

Y-coordinate  of  the  lower  intersecting 
rim  point 

Y1 

Y  component  of  the  distance  from  the  source 
to  rim  point  Pn- 

Y2 

Y  component  of  the  distance  from  the  source 
to  rim  point  P^+^ 

(0) 
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CODE  LISTING 


1  SUBROUTINE  SIT)Y(N,RIM,XS.PHI  ,TF1  ,TH2  ,THER) 

2  C 

~  C  ***  THIS  SUBROUTINE  CALCULATES  THE  SHADOW  BOUNDARY  ANGLES 

4  C  BOR  SPILLOVER  FIELDS  AS  WELL  AS  EDGE  DIFFRACTED  FIELDS 

b  C  OF  A  PARABOLIC  REFLECTOR  ANTENNA, 

c  C 

•/  c  ***  THE  RANGE  OF'  INPUT  PHI  ANGLE  IS  IN  (-180.,  180.  ) 
b  C 

V  DIMENSION  kl M( 67 ,2 ) , ALPHA! 2 ) , X (2 ) , Y< 2 ) ,2 (2 ) , XS( 3 ) , RHOS (2 ) 

10  DIMENSION  MU ( 2 ) , ML ( 2 ) , SI GN ( 2 ) 

11  LOGICAL  LTEST, LDEUUG 

12  COMMON  /RF BDY/RHOS 

1  3  COMMON  /FOCAL/F,  7.0P 

I 4  COMMON  /PI  S/PI, TPI, DPR 

lb  COMMON  /OUT/NW 

ic  COMMON  /TEST/LDEBIJG, LTEST, NTEST 

17  IF  (LTEST)  I-.RITE  (6,-)  N.PHIR 

lb  HPI  =  PI /? . 

IV  THPI =3.*HPI 

20  PHIR=PHI/1)PI< 

21  TANP=TAN(PHIR) 

22  IF  ( PHI k.GT. 0. )  PHIPR=PHIP-PI 

2o  Ir  (PHlk.Lc.t3.)  PHIPR=PHIR+PI 

24  L I =0 

2  s  L2  =0 

26  C 

27  C  ***  L  *  #  OF  INTERSECTING  POINTS  ON  TL’E  APERTURE  RIM  CUT  BY  PHI 

28  C  AND  PHIP. 

2 V  C  MU, ML*  INDEX  OF  THE  RIM  POINT  CORRESPONDING  TO  THE  RIM  SECTI 

ON 

So  C  CUT  BY  PHI  AMD/OR  PHIP  RESPECTIVELY. 

3  I  C 

22  DO  10  1=1, N 

23  X  I =R I M ( 1 , I  )-XS( 1  ) 

34  Y I =R IM ( I ,2 )-XS (2 ) 

3b  GAM  I =BTAN2 ( Y  1  , X 1  ) 

3o  J=  I  +  I 

37  IF  (J. GT.il)  J=l 

ob  X2=RIM(J, 1  )-XS( I  ) 

3  V  Y2  =H  I M  ( J ,  2  )  —  X  S  ( 2  ) 

40  GAM2=BTAN2(Y2,X2 ) 

4  I  Ir  (GA/'I  .GF.('.  .AND. GAM2.LT. O.)  G AM 2 =GA M2 +T P I 

42  Ir  ( AUG ( GAD  1 -O AM 2 ) .LT. PI  )  GO  TO  6 

4 18  (  TAN(GAMI  )*TAM(OAl‘?).OT.0>  GOTO  1 00 
44  GO  TO  8 

4  b  O  IF  ( GAM2 .  Gi.  CAM  I  )  GO  TO  >» 

4o  1EMP=GAM I 
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J 


CAM  I  *GAM2 

48  GAM2«'iEMP 

49  8  CONTINUE 

b0  IF  ( PHI R .LT. GAM  I .OP. PH IP .OK. CA M2 )  GO  TO  9 

b  I  L I  =L  I  ♦  I 

b 2  MU (L I )=I 

b3  9  IF  <  PHI  PH.  LT.GA.M  I .  OH. PHI  PR  .GE. CAM2  )  GO  TO  10 
b4  L2=L2+I 

bb  ML(L2)=I 

00  10  CONTINUh 

b7  L=L  I  +L.2 

bb  IF  (L.G1.2)  KrV ITH  (6,12)  L 

bV  12  F  OHM  AT  (/TIO,/L=',  12, 5X,  'ABNORMAL  RIM  SHAPE',/) 

ot)  IF  (LUFFUG)  WRITE  (6,14)  L,L1  ,L2  ,MU(  1 )  ,MIJ(2 )  ,ML(  I ) ,  ML(  2) 

61  14  FORMAT  (/TI0.'L=',I2,5X,6I5,/) 

02  IF  (L.H0.2)  GO  TO  15 

oo  C 

04  C  ***  L<2 ,  EITHER  PHI  CUT  TANGENT  TO  THE  APERTURE  RIM  (L=l), 

Ob  G  OR  MISSING  THE  APERTURE  PLANE  (L=U). 

06  C 

o7  TH 1=180. 

08  TH2= 1 80. 

09  HETURN 

70  lb  IF  (LI-1 )  16,17, 18 

7  1  16  M I =ML(  I  ) 

72  M2 =ML( 2) 

7o  SI GN ( I )=- I . 

7  4  SI GN (2 )=- 1  . 

7  b  GO  TO  20 

7  o  17  M I =MU( 1 ) 

7  7  M2=ML(  I  ) 

78  SIGN( I )= I . 

79  SIGN(2)=-I  . 

60  GO  TO  20 

8  1  18  M 1 =MU( l  ) 

82  M2=MU( 2 ) 

tio  SIGN ( I )= I . 

84  SI GN (2 )  =  I . 

6b  20  IF  (LUELUG)  WRITE  (6,-)  Ml  ,M2 

60  G 

87  G  CALGULAiE  THE  COORDINATES  OF  THE  INTERSECTING  POINTS 

66  G  (X(I),Y(I),Z(I))  AND  THEIR  CORRESPONDING  ANGLES  ALPHA( I )  AND 

69  G  ALPHA(2)  MEASURED  FROM  THE  NEGATIVE  Z-AXIS. 

90  G  ALL  REFERRING  TO  THE  SOURCE  POINT  XS. 

yi  g 

92  I  I =M I 

Vo  DO  30  1=1,2 

94  X l=HIM( I  I , I )-XS(  I ) 

9b  YI=RIM(I l,2)-XS(2) 

9o  IF  (LDEHUG)  WRITE  (6,32)  XI, YI 
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97 

12=1  1  +  1 

Vb 

IF  (I2.CT.M)  12=1 

99 

X2=RIM(  12,  1  )-XS(  1 ) 

00 

Y2=RIM( 12, 2 )-XS( 2  > 

K  1 

It-  (LI)EBUG)  WRITE  (6,32)  X2,Y2 

02 

IF  ( AHS( XI-X2) .LT.  I.E-3)  GO  TO  2  b 

03 

SLP=  ( Y2-YI  )/  ( X2-XI  ) 

04 

IF  ( ABS( PHI-90. ) .LT. 1 .E-3)  GO  10  22 

0  b 

X( I )=( X2* SLP-Y2 ) /( SLP-TANP ) 

06 

Y( I )=X( I )*TANP 

0’/ 

GO  TO  28 

08 

22 

Y< I )=Y2-X2*SLP 

09 

X( I )=0. 

10 

GO  10  2b 

1  1 

2b 

X(I )=XI 

12 

Y( I )=X( 1 )*TANP 

13 

28 

RHOS( I )=£IGK(I )*SQRT ( X ( I )*X(I)+Y(I )*Y( I) ) 

14 

18  ( LDEbUG  >  WHITE  (6,-)  1 ,  1 1  ,  X  ( I  ) ,  Y  (  I ) ,  1.  HOS  (  I ) 

lb 

I  1  =M2 

16 

30 

CONTINUE 

17 

e 

lb 

IF  (LI .bO.  1  )  GO  TO  3 1 

19 

IF  (  RHOL( 1 ).GE.RH0S(2) )  GO  TO  31 

20 

TEMP=X( 1 ) 

2  1 

X(  1 ) =X (2  ) 

22 

X(2)=TEMP 

23 

TEMP=Y ( 1 ) 

24 

Y( 1 )=Y(2) 

2b 

Y  ( 2 )  =1  EM  P 

2o 

TEMP=RHCS(  1  ) 

27 

RHOS ( 1 )=RHOS (2 ) 

2b 

RH0S(2 )=TEMP 

29 

c 

30 

c 

***  X(K),Y(K),Z(.<)  REFER  TO  THE  REFLECTOR  COORPTNA 

3  1 

c 

32 

3 1 

DO  40  K= 1 ,2 

33 

XP=X(K) 

34 

YP=Y (K) 

3b 

X(K)=XP+XS( 1 ) 

36 

Y(K)=YP+XS(2 ) 

37 

RH02=X(K)**2+Y(K)**2 

3b 

Z(K)=WHC2/(4.*F)-Z0P 

39 

IF  ( LTEST)  WRITE  (6,32)  X(K) ,Y(K),Z(K) 

40 

32 

FORMAT  (T20,3E12.4) 

4  1 

D=SQRTQP*XP+YP*YP) 

42 

ZZ=XS(3)-Z(K) 

43 

AL  PH  A( K ) =BTAN2 ( D , ZZ ) *DPH 

44 

IF  (LTEirl)  WRITE  (6,ob)  K, ALPHA (K) 

4b 

35 

FORMAT  ( Tl fc, 'ALPHA! *  , I 1 ,')',F7.2) 

40 

40 

CONTINUE 
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147  C 

148  C  *★*  SHADOW  BOUNDARY  ANGLES  FOR  SPILLOVER  FIELD  **★ 

14V  C 

IbO  TH1=180.-SIGN( I )*ALPHA( I ) 

lb  I  TH2=180.-SIGN(2)*ALPHA(2) 

Ib2  t 

IbJ  C  **★  SHADOW  BOUNDARY  ANGLE  FOR  EDGE  DIFFRACTED  FIELD  *** 

I  b4  C 

Ibb  THEB=HPI 

Ibo  IF  (ABS(Z(  I  )-Z(2  )).LT.  I.D-4)  GO  TO  70 

Ib7  DRHO=SQkl <  < Y <2 )-Y( I ) )**2+( X( 2 )-X ( I ))**2) 

Ib8  DZ=Z ( I )-Z(2 ) 

I bV  THEB=BTAN2 (DRHO, DZ ) 

100  lid  IF  (LTEST)  WRITE  (6,80)  THEB 

101  80  FORMAT  (/T15,'THEB  =  ',FI0.4,'  RADIANS',/) 

102  RETURN 

163  100  WRITE  (6,120) 

104  120  FORMAT  (/TIO,'***  ERROR  *  TWO  CONSECUTIVE  RIM  POINTS  MUST  ' 

1 6t>  2 •'LOCATE  IN  THE  SAME  OUADRANT  OR  ADJACENT  QUADRANTS',/) 

loo  CALL  EXIT 

lo7  END 
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